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REAL-TIME  DATA  COLLECTION  PROGRAMS  AND  SOURCE  CODE 
FOR  A  COMMERCIAL  PASSIVE  FTIR  REMOTE  SENSOR 


1 .  INTRODUCTION 

Passive  Fourier  Transform  Infrared  (FTIR)  remote  infrared  (IR) 
sensing  is  a  method  of  increasing  popularity  for  the  detection  and 
identification  of  gaseous  pollutants.  Low-cost,  commercial  FTIR  remote 
sensors  are  available  that  can  detect  the  spectral  absorptions  or  emissions  of 
a  chemical  vapor  cloud,  using  an  ambient  temperature  thermal  background. 
Current  data  analysis  computer  programs  require  the  collection  of  an  ambient 
background  reference  spectrum  for  subtraction.  Many  conditions  exist  in  the 
detection  of  ambient  vapor  clouds  in  which  it  is  not  possible  to  obtain  an 
accurate  passive  open-path  background  emission  spectrum.  These  conditions 
include  the  use  of  a  passive  FTIR  sensor  in  a  fence-line  or  an  open-path  smoke 
stack  monitoring  application. 

A  typical  fence-line  monitoring  application  is  shown  in  Figure  1. 
This  application  detection  limit  is  governed  by  four  basic  paranteters,  which 
are  as  follows: 


•  the  contrasting  temperature  between  the  background  and  the 

vapor  cloud 

•  the  cloud  path  length 

•  the  cloud  concentration 

•  the  atmospheric  attenuation  of  the  IR  energy 

In  addition,  the  spectral  features  of  a  chemical  vapor  cloud  can  be  seen  as 
either  emission  or  absorption  depending  on  the  relative  temperature  of  the 
cloud  relative  to  that  temperature  of  the  ambient  background.  Because  of  the 
large  number  of  atmospheric  and  instrumental  variad>les,  a  passive  IR  spectrum 
can  be  so  complicated  that  the  identification  of  a  particular  vapor  species 
can  be  easily  missed.  Automated  real-time  pattern  recognition  software  can 
assist  the  operator  in  discriminating  between  the  complicated  background 
spectra  and  the  spectral  features  of  a  vapor  cloud. 

Recently,  a  generic  series  of  signal  processing  techniques  has 
been  developed  to  analyze  passive  remote  sensing  interf erograms . These 
methods  use  a  digital  filter  combined  with  pattern  recognition  that  can 
discriminate  a  particular  chemical  species  versus  all  other  interferents  and 
spectral  background  features.  A  digital  filter  that  is  used  is  called  a 
"matrix"  filter.  This  filter  is  somewhat  analogous  to  the  background 
reference  subtraction  in  that  it  reoioves  the  unwanted  spectral  background 
features  before  application  of  a  pattern  recognition  procedure. 
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CLOUD 


operation  of  a  Passive  Infrared  Remote  Sensor 


Real-time  implementations  of  digital  filter  and  pattern 
recognition  interferograme  are  a  necessity  for  passive -remote  sensing 
measurements.  Qpen-path  measurements  can  be  enhanced  by  the  ability  to  notify 
cm  operator  of  the  presence  of  a  particular  chemical  vapor.  A  feedback 
mechanism  provided  by  real-time  software  assists  the  operator  in  identifying 
spectral  contributions  from  a  vapor  cloud  before  the  conclusion  of  a 
particular  experiment.  The  real-time  data  collection  and  analysis  software 
enables  the  operator  to  make  adjustments  or  modifications  to  the  experimental 
desig:!  to  inprove  data  collection  results  from  a  field  trial. 

This  study  describes  the  coeqputer  software  inplementation  of  a 
real-time  detection  algorithm  on  a  personal  coaf>uter  (PC)  that  has  been 
integrated  into  a  commercial  interferometer  hardware  package.  Data  collection 
prograuns  are  described  that  enadales  the  user  to  collect  interferograms  for 
later  analysis.  The  data  collection  and  analysis  prograun  names  are  listed  in 
Tatble  1. 


Taible  1 .  Overview  of  Prograun  Names 


Name 


Program  Discussion 


midcol 

replay 

mtrx 


mtrxd 

matgraph 

convintf 


collects  data  to  disk  from  the  midac  unit 
replays  and  displays  collected  risk  data 
collects  data  from  the  midac  and  runs  the  matrix 
filter  amd  pattern  recognition  prograun 
reads  data  from  disk  amd  runs  the  matrix  filter  amd 
pattern  recognition  program 

display  the  result  file  processed  by  programs  mtrx 
amd  mtrxd 

converts  interferograun  files  created  by  the  program 
midcol  to  a  format  that  can  be  read  by  SPECTRACALC 


2.  EXPERIMENTAL  PROCEDURES 

Data  collection  and  real-time  data  analysis  software  was  develqped 
for  a  commercial  interferometer  mamufactured  by  Midac  Corporation  (Irvine, 

CA) .  This  small,  low-cost  FTIR  remote  sensor  can  be  configured  as  a  passive, 
single-ended,  or  bi- static  active  system.  The  system  cam  be  used  in  am  active 
mode  that  includes  a  parabolic  mirror  amd  am  IR  source.  Active  source 
configurations  require  the  addition  of  a  telescope  allowing  the  field-of -view 
of  the  interferometer  to  be  fully  filled  by  the  source  for  long  path  length 
applications.  The  passive  arramgement  (Figure  2)  used  for  data  collected  for 
this  study  cam  be  used  either  with  or  without  a  telesccq>e.  A  telescope  is  not 
needed  if  the  target  chemical  vapor  cloud  is  sufficient  to  fill  the 
field-of -view  of  the  interferometer. 
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Figure  2.  Data  Collection  Program  Flow  Chart 


The  Midac  spectrometer  consisted  of  a  Michelson  linear  drive 
interferometer  that  was  specifically  optimized  for  the  8  to  12  ^  wavelength 
atmospheric  window.  The  interferometer  had  an  optically  coated  nonhygroscopic 
front  window  with  an  optical  diameter  of  1.75  in.  The  interferometer 
beamsplitter  was  constructed  of  zinc  selenide  (ZeSe)  euid  had  a  toleramce  of 
better  than  l%  deviation  from  the  50%  transmission  optical  requirement  between 
the  wavelength  region  of  7  and  14  fm.  The  IR  energy  exiting  the 
interferometer  was  converged  onto  a  1  by  1  mm  MCT  detector  element  by  a  gold 
coated  off-aocis  parabolic  mirror.  The  detector  element  was  moiuited  in  a  dewar 
and  cooled  with  liquid  nitrogen. 

Analog  data  was  an^lified  by  a  low- noise  pre-airplif ier  and  a  low- 
noise,  high-gain  post  anplifier.  The  analog  signal  was  passed  to  a  16-bit 
analog-to-digital  converter  for  digitization.  The  digitization  rate  of  the 
analog-to-digital  converter  was  controlled  by  a  reference  He-Ne  laser  emd 
detector  arrangement  that  included  two  visible  detectors  that  also  monitors 
the  direction  of  mirror  travel. 

The  interferometer  hardiraire  had  the  capability  of  scemning 
interferogreuns  as  short  as  512  points  or  as  large  as  16  K  points.  In 
addition,  the  servo  scanning  hardware  had  the  capability  of  sem^ling  every 
He-Ne  laser  zero  crossing  or  sanpling  as  few  as  only  every  eighth  laser  zero 
crossing.  The  hardware  servo  sampling  flexibility  allows  one  to  select  an 
optimal  sampling  rate  and  resolution  for  a  given  open-path  esqieriment.  The 
software  that  was  developed  had  the  capability  of  collecting  data  at  all  of 
the  sampling  rates  and  resolutions  that  the  interferometer  hardware  allowed. 


3.  DATA  COLLECTION  PROGRAM  DESCRIPTION 

Data  collection  software  was  cooqpleted  in  "C"  language  to  allow 
for  the  storage  and  display  of  interferograms  obtained  from  the  Midac 
spectrometer.  Version  3  of  the  software  allows  collection  of  interferograms 
at  various  resolutions  and  san^ling  rates  for  a  display  of  the  Fourier 
transformed  spectrum.  Two  data  collection  programs  allow  for  the  data 
collection  to  disk  and  also  the  capability  to  display  interferograms  at  a 
later  time. 


The  interferometer  data  collection  program  (midcolv)  enedsles  the 
user  to  store  up  to  3000  sequentially  collected  interferograms  into  a  single 
disk  file.  This  collection  program  has  the  ability  to  Fourier  transform  the 
interferogram,  background  siibtract  a  reference  spectrum,  or  compute  a 
calibrated  blackbody  reference  spectrum  in  real-time  to  yield  a  corrected 
difference  emission  profi^le.  Conversion  from  any  one  data  display  type  to 
another  is  achieved  by  using  single  key  strokes.  A  single  keyboard  control 
function  is  useful  for  outdoor  remote  sensing  field  applications  where  the  use 
of  a  mouse  or  window  display  menus  becomes  difficult  to  manipulate.  A  flow 
chart  of  the  data  collection  program  is  shown  in  Figure  2. 

The  data  collection  program  has  eight  screen  display  options  that 
are  enabled  with  the  use  of  function  keys  FI  through  FS .  Function  key  Fl  is 
defaulted  to  display  the  first  400  points  of  a  collected  interferogram.  The 
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inter ferogram  screen  display  can  be  expanded  or  contracted  to  allow  for  more 
or  less  points  to  be  displayed.  The  expansion  and  contraction  functions  are 
enabled  by  the  use  of  four  functions  keys  which  are  F9,  FIO,  the  left  arrow 
key,  and  the  right  arrow  key.  Function  key  F9  enables  one  to  contract  the 
interferogram  screen,  while  function  key  FIO  enables  an  expansion  of  the 
screen  display.  The  left  and  right  arrow  keys  enable  one  to  rotate  data  on 
the  display  screen  to  the  left  or  right.  By  using  all  four  of  the  single 
function  keys,  one  can  display  any  range  of  interferogram  points  without  the 
need  of  a  special  keypad,  joystick,  or  mouse  control.  These  keyboard  control 
functions  greatly  simplify  operation  of  an  FTZR  sensor  in  an  outdoor  field 
Btonitoring  application. 

Function  key  F2  enables  one  to  view  the  Fourier  transformation  of 
each  collected  interferogram.  The  program  default  is  to  display  the  entire 
range  of  the  spectrum.  This  default  display  range  can  be  expanded  using 
function  key  F9  to  display  a  selected  wavelength  range.  The  function  keys, 
FIO,  left  arrow,  and  right  arrow,  can  be  also  be  used  to  contract  or  rotate 
the  display  of  the  transformed  single-beam  spectrtim. 

Function  key  F3  is  used  to  collect  interferograms  and  store  data 
to  a  disk  file.  This  display  option  lists  the  name  of  the  file,  the  last 
interferogram  number  stored  to  disk,  and  whether  a  known  data  collection  error 
has  occurred.  A  list  of  error  codes  is  provided  in  Table  2.  Provisions  exist 
in  the  software  that  allow  the  user  to  include  additional  codes  in  the  error 
table.  The  program  automatically  uses  the  error  table  to  scan  a  particular 
Interferogram  for  storage  in  the  scan  header  and  display.  The  addition  of  the 
error  code  table  is  extremely  useful  for  laboratory  and  outdoor  passive-remote 
sensing  measurements,  because  an  operator  is  notified  instantly  of  a  possible 
error  condition  during  data  collection.  By  displaying  the  error  code,  the 
operator  can  correct  a  possible  problem  before  the  end  of  the  open-path 
measurement. 


Table  2.  Error  Codes 


Error  Code  Number 

Error  Code  Meaning 

1 

less  than  correct  #  of  data  points  collected 
by  computer  for  scan 

2 

A/D  overflow 

3 

centerburst  interferogram  point  position 
change  from  last  scan 

4 

centerburst  position  out  of  range 

S 

low  signal  (A/D  gain  very  low) 

Interferogram  data  stored  to  disk  using  fun^  tion  key  F3  is 
formatted  as  shown  in  Table  3  and  Table  4.  This  standardised  data  format 
contains  a  global  header,  an  interferogram  subfile  header,  and  the 
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Table  3.  Data  Collaction  Disk  Format 


Byte 

Position 

Bytes 

Used 

Field 

Description 

Data 

Type 

GLOBAL  HEADER  -  512  bytes 

General  info 

0 

10 

filename  (CCC####) 

string 

10 

10 

date  (MM/DD/yy) 

string 

20 

10 

start  time  (HHtMM:SS) 

string 

30 

10 

atop  time  (HHtMM:SS) 

string 

40 

2 

stop  scan  number 

int 

42 

10 

operator's  name 

string 

52 

44 

unused 

string 

Sensor 

information 

96 

20 

sensor  identification 

string 

116 

2 

collection  stode 

int 

118 

2 

integer  type 

int 

120 

2 

points  per  scan 

int 

122 

8 

resolution 

double 

130 

8 

scan  speed 

double 

138 

8 

mirror  velocity 

double 

146 

8 

sampling  frequency 

double 

154 

8 

starting  frequency 

double 

162 

8 

ending  frequency 

double 

170 

8 

maximum  wavenumber  sampled 

double 

178 

2 

#  of  sero  crossings  per  sampled 

int 

point 

180 

16 

unused 

string 

Weather 

information 

196 

2 

ambient  temperature 

int 

198 

8 

barometric  pressure 

double 

206 

2 

humidity 

int 

206 

2 

wind  speed 

int 

210 

2 

wind  direction 

int 

212 

2 

sensor  direction 

int 

214 

2 

precipitation  code 

int 

216 

40 

unused 

string 
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Table  3.  Data  Collection  Diek  Format  (Continued) 


Byte 
Foe it ion 

Bytes 

Used 

Field 

Description 

Data 

Type 

Comments 

256 

64 

cosment  -  line  #1 

string 

320 

64 

comment  -  line  #2 

string 

384 

64 

comment  -  line  #3 

string 

448 

64 

comnient  -  line  #4 

string 

SCAN  HEADER  -  64  bytes 

Byte 

Bytes 

Field 

Data 

Position 

Used 

Description 

Type 

0 

2 

scan  number 

int 

2 

10 

filenaste 

string 

12 

10 

time  (HH:MM:SS) 

string 

22 

2 

centerburst  location 

int 

24 

2 

Analog  to  Digital  gain  setting 

int 

26 

2 

number  of  scans  co^added 

int 

28 

34 

unused 

string 

62 

2 

error 

int 

SCAN  DATA  -  variable  bytes 

Data  block 

will  consist 

of  integer  data  of  type  designated  in 

the  global 

header,  stored  contiguously  for  length  specified  by  the  points 

per  scan  as 

also  designated  in 

the  global  header. 
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Table  4.  SpectraCalc  Data  Format 


DATA  BYTE 

OFFSET 

TYPE 

EXPLANATION 

0 

byte 

version  number  (optional) 

1 

b>te 

must  be  4D  hex 

2 

word 

exponent  for  all  y  values 

4 

float 

number  of  y  data  points 

8 

float 

X  value  of  the  first  data  point 

12 

float 

X  value  of  the  last  data  point 

16 

byte 

type  of  X  values: 

0  «  arbitrary 

1  B  CM-1  (wavenumbers) 

2  B  micrometers  (tm) 

3  B  nanometers  (nm) 

4  B  seconds  (sec) 

5  B  minutes  (min) 

6  B  hertz  (Hz) 

7  B  kilohertz  (kHz) 

8  B  megahertz  (MHz) 

9  B  mass  units 

10  B  parts  per  million  (ppm) 

255  B  double  igram  (not  labeled) 
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byte 

type  of  y  values: 

0  B  arbitrary 

1  B  interferogram 

2  B  absorbance 

3  B  kubelka-munk 

4  B  counts  or  CPM 

5  B  volts  or  XEV 

6  B  degrees 

128  B  transmission 

129  B  reflectance 

(values  0-127  must  have  positive  peaks) 

(values  128-255  must  have  negative 
peaks) 

year  that  data  was  collected 

18 

%rord 

if  0  then  date/time  is  ignored 
month  that  data  was  collected 

20 

byte 

day  of  smnth  data  was  collected 

21 

byte 

hour  that  data  was  collected 

22 

byte 

minute  of  hour  data  was  collected 

23 

byte 

resolution  of  data  in  ASC  text 

24 

8  bytes 

reserved  for  8  floating  values 

32 

32  bytes 

(the  first  word  is  the  peak  position) 

ASC  IX  comments  (comment  must  end  with  a  zero 

64 

192  bytes 

byte) 

y  signed  32  bit  word  reversed  two's  complement 

256 

reversed  fractions 
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interferograzn  data.  The  interferogram  data  format  allows  for  storage  of  data 
points  in  8,  16,  32,  or  64  bit  data  representations.  Data  type  information  is 
stored  in  the  global  header.  The  current  inplementation  of  the  MIDAC  softwetre 
uses  a  16 -bit  data  storage  to  correspond  with  the  number  of  bits  of  the 
analog- to- digital  converter. 

The  global  header  is  divided  into  general  information,  sensor 
information,  weather  information,  and  comment  information.  The  addition  of 
weather  information  for  outdoor  passive -remote  sensing  measurement  is  almost 
essential  for  some  data  collection  exercises.  Information  about  the  other 
sensor  paurameters  includes  the  collection  mode,  the  data  type,  the  scan  speed, 
the  resolution,  the  sanqpling  rate,  and  the  number  of  sero  crossings  to  sas^le 
for  each  data  point. 

The  scam  header  contains  information  that  is  specific  to  each 
collected  interferogram.  included  in  the  scan  header  is  the  interferogram 
seem  number,  the  time  the  interferogram  scan  was  collected,  the  centerburst 
point  position,  the  analog- to-  digital  converter  gain  setting,  the  file  name, 
and  the  number  of  interferogram  scams  that  were  coadded  upon  data  storage. 

The  time  clock  on  the  PC  is  queried  before  the  start  of  each  interferometer 
scan.  This  information  is  converted  to  ASC  format  and  written  as  part  of  the 
header  information  for  each  interferogram  scam. 

An  additional  scam  header  descriptor,  which  is  included  in  the 
data  format,  is  the  file  name  information.  This  data  field  enatbles  the  user 
to  tag  the  source  of  single  interferograms  in  the  large  single  file  storage 
format.  This  descriptor  is  extensively  used  in  the  conversion  of  data  types 
between  the  commercial  SpectraCalc  software  (Galactic  Industries,  Salem,  MH) 
amd  this  remote  sensing  data  format. 

Function  key  F4  in  the  data  collection  program  is  used  to  display 
a  difference  spectrum  in  real-time  on  the  screen.  In  this  data  collection 
mode,  a  background  interferogram  is  collected,  tramsformed,  and  subtracted 
from  all  following  interferogram  scams.  The  result  is  a  display  of  the 
difference  spectrvon  that  shows  the  change  in  thermal  emission  profile  as  a 
function  of  time.  This  display  function  is  extremely  useful  for  open-path 
optical  alignment  measurements  in  which  the  instrument,  vapor  cell,  and  the  IR 
source  cam  be  simultaneously  adjusted. 

Fimction  keys  F5  through  F8  are  used  to  subtract  previously  stored 
calibrated  reference  spectra  from  each  of  the  collected  transformed  ixqput 
interferograms.  When  one  of  these  functicxi  keys  is  pressed,  the  program  reads 
a  corresponding  disk  file  naune,  collects  an  input  interferogram,  and  displays 
the  result  of  a  spectral  subtraction.  Dp  to  four  different  calibrated 
single -beam  reference  spectra  cam  be  stored  and  recalled  during  data 
collection,  it  is  recommended  that  the  calibration  reference  spectra  be 
transformed  amd  stored  to  disk  through  the  use  of  the  commercial  Spectracalc 
program. 
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4. 


DATA  CONVERSION  PROGRAMS 


Utility  data  format  conversion  programs  are  an  essential 
requirement  for  any  passive -remote  sensing  application  software  package, 
because  several  excellent  commercial  software  packages  exist  that  aid  in  the 
data  analysis.  Two  conputer  programs  were  developed  that  allow  conversion  of 
the  data  format  shown  in  Table  3  and  Table  4  to  the  standard  commercial 
Spectracalc  data  format.  Remote  sensing  interferogram  data  collected  with  the 
data  collection  software  can  be  converted,  processed,  displayed,  amd  output  to 
a  hardcopy  device  through  the  use  of  this  commercial  software. 

The  first  program  converts  a  specified  number  of  remote -sensing 
interferograms  into  a  single  SpectraCalc  format  interferogram  file.  The 
program  requests  the  user  to  identify  a  particular  group  of  interferograms  on 
disk  to  convert.  The  program  reads  each  remote  sensing  interferogram  and 
converts  the  data  to  a  two's  conplement  binary  representation.  Data  stored  on 
the  PC  disk  has  a  file  name  that  provides  a  reference  index  name  that  is  keyed 
to  the  source  interferogram  number. 

A  second  data  conversion  program  converts  multiple  SpectraCalc 
files  into  the  single -remote  sensing  interferogram  file  format  (Table  3) .  The 
SpectraCalc  data  format  does  not  normally  include  some  of  the  remote  sensing 
header  parameters  (i.e.,  weather  information  and  sensor  positioning 
parameters)  for  data  storage  of  laboratory  measurements.  Therefore,  this 
program  requires  the  user  to  input  a  nundoer  of  global  header  parameters 
describing  the  data  type  for  storage  of  a  disk  file. 


5  .  DATA  ANALYSIS  PROGRAMS 

Real-time  data  analysis  conputer  programs  have  been  developed  for 
the  Midac  interferometer  that  apply  a  set  of  automated  pattern  recognition 
methods  for  the  detection  of  specific  chemical  vapor  species.  Fourier 
transform  infrared  passive  remote  sensing  applications  require  that  a 
reference  background  spectirum  be  subtracted  from  open-path  field  spectra  to 
remove  the  instrument  and  background  spectral  contributions.  For  many 
reasons,  it  is  not  always  possible  to  obtain  a  true  reference  spectrum  during 
passive  remote  sensing  data  collections.  One  practical  reason  of  not  being 
able  to  obtain  a  true  spectrum  is  that  field  sites  to  be  monitored  may  already 
be  contaminated  with  the  vapor  species  to  be  measured.  In  this  case,  because 
the  vapor  species  is  always  present,  one  may  not  be  able  to  obtain  an  accurate 
emission  reference  spectrum  that  does  not  also  contain  the  vapor  species  to  be 
monitored. 


During  the  last  several  years,  research  has  been  conducted  to 
develop  a  signal  processing  method  for  eliminating  the  need  of  a  background 
reference  q>ectrum.  Digital  filter  and  pattern  recognition  methodology  for 
automatic  detection  of  atmospheric  species  was  developed  that  eliminates  this 
background  reference  problem. ’’’  The  methodology  uses  a  preprocessing  strategy 
called  a  "matrix  filter"  emd  a  multiple  linear  discriminant  pattern 
recognition  method  to  discriminate  against  various  backgrounds.  Collected 
interferogram  data  is  used  as  the  input  for  the  generation  of  an  optimal  set 
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of  digital  filter  and  multiple  diacriminate  pattern  recognition  coefficients. 
Optimized  coefficients  are  generated  based  on  the  number  of  interferograms 
classified  correctly  from  a  training  data  set.  The  reader  is  referred  to  the 
open  literature  publications  referenced  that  describe  the  mathematical 
background  for  the  generation  of  the  digital  filter  and  pattern  recognition 
coefficients.  (1-4) 

Implementation  of  the  matheokatical  stethod  described  in  the 
references  is  shown  in  Figure  3.  The  computer  program  enables  interferogram 
data  to  be  collected  directly  from  the  interferosieter  and  processed  through 
the  algorithm.  Implementation  of  the  algorithm  requires  the  storage  of  one 
set  of  digital  filter  coefficients  for  each  point  along  the  digitized 
interferogram.  K  current  iiiq>lementation  for  the  acetone  vapors  detection 
requires  an  average  of  17  coefficients  from  each  interferogram  point  along  a 
75  point  interferogram  segment  length.  Data  atorage  requirements  for  the 
acetone  filter  and  pattern  recognition  coefficients  were  less  than  7  K  32  bit 
words  of  storage.  One  set  of  digital  filter  and  pattern  recognition 
coefficients  is  required  for  identification  of  each  particular  vapor  species. 

Current  execution  of  the  computer  program  on  a  Dell  466  50  MHz  PC 
allows  for  the  real-time  identification  of  acetone  without  the  need  of  a 
reference  background  subtraction.  Each  interferogram  is  segmented,  filtered, 
multiplied  by  the  multiple  linear  discriminants,  and  subsequently  suimied  to 
give  a  single  discriminator  output  result.  The  discrimination  and  data 
display  to  the  screen  is  completed  in  less  than  20  msec  for  a  single 
interferogram  scan.  As  an  example,  if  one  uses  this  implementation  of 
software,  then  enough  processor  capability  is  available,  using  a  moderately 
fast  486  PC,  to  simultaneously  collect  and  BK>nitor  for  the  presence  of  up  to 
five  compounds.  The  software  on  the  486  PC  can  identify  the  five  different 
vapor  species  on  every  interferogram  at  scan  rates  of  up  to  5/scans/sec.  For 
Acetone  and  2-Butanone,  the  correct  classification  percentages  have  been 
reported  to  be  over  99%.* 

Figures  3  and  4  show  the  real-time  computer  screen  display  of  two 
data  collection  runs.  The  plot  in  Figure  3  is  a  data  run  that  shows  the 
response  of  the  discriminator  as  a  function  of  time.  The  x-axis  shows  the 
interferogram  number  collected,  while  the  y-axis  is  the  relative  output 
response  of  the  discriminator.  The  plot  indicates  that  acetone  was  present 
between  the  collection  of  interferograms  98  to  143  and  also  155  to  189.  All 
of  the  other  interferograms  outside  of  these  ranges  show  that  acetone  was  not 
present  in  the  field-of-view  of  the  interferometer.  The  plot  in  Figure  4  is  a 
collection  of  1550  interferograms  that  were  collected  when  no  acetone  was 
present  in  the  field-of-view  of  the  interferometer.  All  of  the  individual 
interferogram  discriminant  responses  are  below  the  zero  threshold  indicating 
that  no  acetone  is  present. 
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Fl9ura  3.  Pattern  Recognition  Resulte  from  the  Real-Time  Computer  Program 
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Pattern  Recognition  Results  for  a  Background  Data  File 


6 


CONCLUSIONS 


P««siv«  Fourier  tranaform  infrared  reaiote  sensing  data  collection 
and  real-time  analysis  software  has  been  completed  for  a  commercial 
interferometer  that  eliminates  the  need  of  a  background  reference  spectrum  for 
open  path  measurements.  Data  collection  routines  mitten  in  "C"  language  code 
allow  the  user  to  collect  and  display  interferograms  for  later  analysis.  Data 
analysis  routines  were  completed  to  allow  for  the  real-time  detection  of  a 
particular  chemical  species  from  single-scan  interferograms  using  a 
low-pomred  IBM  PC  interfaced  to  a  comstercial  interferometer.  Pattern 
recognition  coefficients  for  the  direct  interferogram  identification  and 
detection  of  chemical  vapors  have  been  developed  and  executed  on  a  single  scan 
in  less  than  20  msec  using  an  ZBM-PC  486  50  MHz  computer. 
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APPENDIX  A 


DESCRIPTION  OF  COMPUTER  PROGRAM  OPTION  LIST 


MIDAC  DATA  COLLECTION  PROGRAM  OPTIONS 


program  MIDCOL  -  Midac  data  collection  program  operation 

(A)  To  start  program  type:  midcol/f  (to  collect  up  to  550 

inter ferograms  to  a  single 
file) 
or 


midcol  (to  collect  up  to  3000 

inter ferograms  to  a  single 
file) 

(B)  Program  input:  The  program  will  request  the  following: 

(1)  a  filename  to  store  the  data 

(2)  4  lines  of  input  to  store  comments 

(C)  The  following  keys  are  used  to  control  the  program: 

KEY  Program  Action 


FI  (function  key  #1) 

F2  (function  key  #2) 

F3  (function  key  /3) 

F4  (function  key  #4) 

F5  (function  key  #5) 

F6  (function  key  #6) 

F7  (function  key  #7) 

F8  (function  key  #8) 

F9  (function  key  #9) 

FIO  (function  key  #10) 
left  arrow  ke’ 

right  arrow  key 

End  (the  key  labeled  "End”) 


display  the  collected  interferogram 
to  the  screen 

display  the  collected  spectrum 
to  the  screen 

collect  inter ferograms  to  a  disk 
file 

collect  a  background  spectrum 
and  subtract  all  following 
spectra 

subtract  transformed  interferogram 
from  spectral  disk  file  f5.fsp 
subtract  transformed  interferogram 
from  spectral  disk  file  f6.fsp 
subtract  transformed  interferogram 
from  spectral  disk  file  f7.fsp 
subtract  transformed  Interferogram 
from  spectral  disk  file  f8.fsp 
contract  the  interferogram  display 
expand  the  interferogram  display 
move  the  interferogram  to  the  left 
on  the  display  screen 
move  the  interferogram  to  the  right 
on  the  display  screen 
quit  program 
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MIDAC  DATA  COLLECTION  DATA  DISPLAY  PROGRAM 


program  REPLAY  —  This  program  will  replay  the  data  collected 

by  the  program  MIDCOL. 

(A)  To  begin  program  type:  replay  filename  (the  program  name  and 

a  data  filename  is 
required) 

example:  replay  c:\templ.dat 


(B)  The  following  keys  are  used 
KEY 

FI  (function  key  #1) 

F2  (function  key  #2) 

F4  (function  key  #4) 

F5  (function  key  #5) 

F6  (function  key  #6) 

F7  (function  key  #7) 

F8  (function  key  #8) 

F9  (function  key  #9) 

FIO  (function  key  #10) 
left  arrow  key 

right  arrow  key 

PGUP  key 
PGDOWN  key 

End  (the  key  labeled  "End") 


to  control  the  program: 
Program  Action 


display  the  collected 
inter ferogr am  to  the  screen 
display  the  collected  spectrum 
to  the  screen 

display  a  background  spectrum 
and  subtract  all  following 
spectra 

subtract  transformed 
interferogram  disk  file  fS.fsp 
subtract  transformed 
interferogram  disk  file  f6.fsp 
subtract  transformed 
interferogram  disk  file  f7.fsp 
subtract  transformed 
Interferogram  disk  file  f8.fsp 
contract  the  screen  display 
expand  the  screen  display 
move  the  screen  display  to  the 
left 

mode  the  screen  display  to  the 
right 

speed  up  the  screen  display 
slow  down  the  screen  display 
quit  program 


Appendix  A 
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PROGRAM  CONVINTF  -  UTILITY  DATA  CONVERSION 


program  CONVINTF  -  utility  data  conversion  program 

(a)  To  start  the  program  type:  (1)  go  to  the  data  directory  in 

the  file  to  convert  is  located 

(2)  TYPE:  convintf 

example:  if  the  data  is  a  file  called  nct0018.dat  and 
located  in  a  directory  called  "c:\data''  and 
the  source  code  is  in  a  directory  called 
''c:\midac\collect'',  then  one  would  go  to  the 
"c:\data''  directory  and  type - 

c: \midac\collect\convintf 


(b)  Program  input:  The  program  will  request  the  following 

information: 

(1)  a  midcol  collected  interferogram  file  to  read 

(2)  a  partial  character  name  to  append  on  the 
file  name  for  the  output  files. 

(3)  the  starting  interferogram  number  to  read 

(4)  the  ending  interferogram  number  to  read 

(5)  the  format  type  **  0  >  floating  point  format 

1  «  SpectraCalc  format 


example: 

(1)  Input  the  interferogram  file  name  to  read:  nct0018.dat 

(2)  Input  a  partial  character  name  for  output  interferogram 
filename  :  aaa 

(3)  Input  the  starting  Interferogram  number  to  convert:  20 

(4)  Input  the  ending  interferogram  number  to  convert:  30 

(5)  Input  the  data  format  type:  0 

Result : 

Ten  data  files  will  be  created  in  the  directory  ''c:\data'' 
that  will  be  called  aaa0020.fsp  to  aaa0030.fsp.  These  file  will 
contain  single  inter ferograms  that  can  be  read  by  the  program 
SPECTRACALC  using  the  import  command. 


Appendix  A 
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APPENDIX  B 


MIDAC  SERVO  CONTROL  JUMPERS 

In  order  for  the  Mldac  data  collection  program  to  operate  in 
a  correct  manner,  the  servo-board  on  the  Mldac  Interferometer  must 
be  jumpered  In  the  following  manner. 

If  one  is  looking  at  the  back  of  the  Mldac  board  titled 
"Combo  Digital  Mirror  Drive"  board,  then  one  can  find  a  row  of 
jumper  pins  labeled  J5  (on  the  left)  to  J1  (on  the  far  right  side 
of  the  board) .  The  basic  purpose  of  each  set  of  jumper  is  as 
follows: 

J5  block  -  determines  if  the  system  scans  using  either  the  high 
speed  or  low  speed  electronics 

J4  block  -  controls  the  clock  oscillator  on  the  board  to 
determine  the  sampling  frequency  (by  selecting 
options  for  both  J5  and  J4  one  can  select  a  wide 
range  of  scan  speeds) (  the  range  is  from  20  KHz  to 
160  Khz  sampling  frequency) 

J3  block  -  these  jumpers  control  the  number  of  fringes  for 
every  sampled  point.  The  jumpers  allow  one  to 
sample  a  point  for  every  He-Ne  laser  fringe  up 
to  the  case  of  8  zero  crossings  for  every  sampled 
point . 

J2  block  -  this  block  of  jumpers  sets  the  scan  length  of  the 

interferometer.  The  selectable  range  of  scan  lengths 
correspond  from  1/2  to  32  wavenumbers  of  resolution. 
The  software  package  SPECTRACALC  can  use  any  of  the 
scan  lengths  up  to  the  maximius  value  jumpered  by  J3. 
For  example,  if  4  wavenumbers  were  selected,  then 
SPECTRACALC  would  be  able  to  collect  all  resolutions 
up  to  4  wavenumbers  (32,8,4).  It  would  not  be  able 
to  collect  resolutions  at  2,1,  and  1/2  wavenumber. 

J1  block  -  this  set  of  jumpers  delays  the  start  of  scan  time. 

These  jumpers  are  used  to  place  the  center burst 
at  various  places  in  the  sampled  inter ferogram 
segment.  This  set  of  jumpers  allows  one  to  collect 
either  single-sided  or  double-sided  interferograms. 

The  exact  jumper  settings  are  as  follows: 

J5  -  high/ low  speed  option 
pin  location  label  meaning 


left  pin  L  selects  the  low  speed  scan  option 

middle  pin  H  selects  the  high  speed  scan  option 

right  pin  SW  if  this  is  jumpered,  then  the 

switch  labeled  "SW2"  on  the 
"Switchable  ADC  board"  can  be  used 
to  select  the  scan  speed 
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J4  -  controls  sampling  speed 

pin  location 

label 

meaning 

left  pin 

pins  1&2 

20  Khz  sampling  frequency 

second  pin 

3&4 

40  KHz 

third  pin 

5&6 

80  KHz 

right  pin 

7&8 

160  Khz 

J3  -  number 

of  zero  crossings  per  sampled  point 

pin  location 

label 

meaning 

left  pin 

Ml 

samples  every  4th  zero  crossing 

second  pin 

M2 

samples  every  8th  zero  crossing 

third  pin 

Ll 

samples  every  other  zero  crossing 

right  pin 

2L 

samples  every  zero  crossing 

J2  -  selects 

the  scan  length 

from  1/2  to  32  wavenumbers 

This  block  of  jtunpers  selects  the  scan  length.  The  scan  length 
jumpers  are  offset  by  one  pin  to  the  left  set  as  compared  to  the 
bottom  set.  The  right  most  possible  jumpers  select  the  lowest 
resolution  while  the  far  left  jumpers  set  the  highest  resolution. 

top  set  of  pins  #  of  points  collected  scan  resolution 

(for  Ll  jumper) 


right  pins  no  option 

second  pins  32  K 

third  pins  16  K 

fourth  pins  8  K 

fifth  pins  4  K 

sixth  pins  2  K 

seventh  pins  1  K 

eight  pin  1/2  K 

left  pins  no  option 

J1  >  selects  the  scan  delay  from  the  zero  path  difference 

DLY4  is  the  most  significant  delay  bit  while  the  DLYl  jumper 
controls  the  least  significant  delay  bit.  The  jumper  positions  for 
the  up  position  is  a  "0”  or  "small  delay"  while  the  down  position 
is  a  "1"  or  a  "large  delay". 

The  switch  on  the  "Switchable  ADC  board"  located  at  the  back  of  the 
midac  unit  are  as  follows: 

switch  labeled  SWl  -  gives  one  the  ability  to  connect  an 

external  detector. 

position  up  *■  use  internal  MCT  detector 
position  down  -  use  an  external  detector 

switch  labeled  SW2  — —  controls  the  scan  speed  (if  the  SW  jtimper 

is  selected  on  block  J5)  This  switch 
30 


1/2  wavenumber 

1  wavenumber 

2  wavenumbers 
4  wavenumbers 
8  waveniu&bers 
16  waveniimbers 
32  wavenumbers 
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will  alternate  between  different  sets  of 
analog  filters  on  the  ADC  board. 


The  recomnended  set  of  jumper  selections  of  the  servo  board  for 
use  with  the  data  collection  program  "midcol”  is  as  follows: 

J5  -  H  or  L  high  speed  or  low  speed  scanning  options 
J4  >  1,2  20  KHz  sampling  (recommended) 

J3  -  M2  sampling  every  8th  zero  crossing 

J2  -  on  top  -  5th  pin  from  left  4  wavenumber  resolution 
on  bottom  -  6th  pin  from  left 

J1  -  delay  so  that  the  centerburst  is  between  40-90  points 
from  the  start  of  scan 

SWl  -  use  the  internal  MCT  detector  -  position  "up" 

SW2  -  switch  position  "up” 


Midac  PC  interface  board  jtmper  setting: 
jumper  J1  -  set  jumper  to  IRQ2 
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Blank 
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APPENDIX  C 


REPLAY  PROGRAM 

/************************  program  REPLAY  ********************************/ 
/* 

program  REPLAY  version  4 . 0 

This  program  is  used  to  read  interferogram  data  from  disk, 
display,  and  FFT  for  display.  This  progreun  will  be  used 
for  data  collection  for  the  Midac  interferometer. 

author:  Bob  Kroutil 

date:  June  1992 

routines  called: 

plotr  -  plots  an  interferogram  or  spectrum 

logoega  -  prints  the  CRDEC  logo 

draw_axis  -  draws  the  axis  for  the  plots  for  either  interferogram 
or  spectra 

cnpfft  -  confutes  the  fast  Fourier  tremsform 

norml  -  normalizes  the  spectrum 

Microsoft  C  graphics  routines 

. */ 

#include  <stdio.h> 

#include  <8tdlib.h> 

#include  <fcntl.h> 

#include  <graph.h> 

#include  <math.h> 

#include  <dos.h> 

#include  "exreplay. def  /*  external  definitions  for  the  program  replay  */ 
#include  "headers. def "/*  contains  the  interferogram  data  structure  */ 

I*  The  following  global  parameters  are  the  following: 

MAXPOINTSs  the  number  of  interferogram  points 

GH_LIMZT  «  the  number  of  bytes  in  the  global  interferogram  header 
SH_LIMIT  *  the  number  of  points  in  the  subfile  interferogram  header 
FEND  ■  the  key  code  to  exit  the  program 

FRIGHT  K  the  key  code  to  expand  the  interferogram  display 

FHOME  s  the  key  code  to  reset  the  interferogram  display 

FLEFT  «  the  key  code  to  congress  the  interferogram  display 

FSEL5  ■  the  key  code  to  background  s\ibtract  disk  file  fS.fsp 

FSEL6  K  the  key  code  to  background  subtract  disk  file  f6.fsp 

FSEL7  ■  the  key  code  to  background  subtract  disk  file  f7.fsp 

FSEL8  ■  the  key  code  to  background  subtract  disk  file  fS.fsp 

PINT  ■  the  key  code  to  display  interferograms 

FSPEC  K  the  key  code  to  display  spectra 

FDIFF  «  the  key  code  for  the  spectral  background  subtraction 
ROLLL  ■  the  key  code  to  roll  the  display  data  to  the  left 

ROLLR  «  the  key  code  to  roll  the  display  data  to  the  right 

MDLY  a  increase  the  screen  display  time 

LDLY  a  decrease  the  screen  display  time 

*/ 


33 


#de£ine  GH_LENGTH  512 
#d«£ina  SH_LENGTH  64 
#d«fine  FSND  79 
#d«fine  FRIGHT  68 
#define  FLEFT  67 
#d«fln«  FSEL5  63 
#deflne  FSEL6  64 
#d«fin*  FSEL7  65 
#define  FSEL8  66 
#d«fin«  FINT  59 
#d«fin«  FSPEC  60 
#deflne  FDIFF  62 
#d«fine  ROIXL  75 
#d*fine  ROLLR  77 
#deflne  MDLY  81 
#deflne  LDLY  73 

main ( argc , argv ) 

Int  argc; 
char  *argv [ ] ; 

{ 

/*  Tha  following  parameter a  are  the  following: 

raw_^buf  -  the  inter ferogram  buffer  (real  values) 

spc^buf  -  the  complex  interferogram  buffer,  also  used  as  a 

work  array 

pi  value  of  the  constant  pi 

raw^data  -  the  interferogram  buffer  (integer  values) 

scan  -  the  scan  number 

index  -  an  indexing  variable 

fpl  *•  file  open  variable 

istps  -  beginning  point  in  array  to  display  to  screen 

iendp  -  ending  point  in  array  to  display  to  screen 

ichng  -  the  number  of  points  to  roll  or  expand  screen 

spoints  -  the  maximum  number  of  points  to  display 

imode  -  0>display  interferogram,  l«display  spectrum 

loop  -  graphics  display  page 

ch  -  used  for  an  input 

spc_bak  -  the  background  spectrum  array 

bkgr  -  the  background  flag 

sstart  -  the  starting  point  for  difference  spectrum 

display 

send  •  the  ending  point  for  difference  spectrum 

display 

dpoints  -  the  number  of  points  to  display  on  the  difference 

spectrum 

ercod  -  interferogram  error  code 

buffer  >  working  character  array  for  output 

lastpeak  -  previous  interferogram  center  burst  array 

position 

burst  ~  array  position  in  subfile  header  for  center  burst 

global_header,gh  -  the  global  header  structure 
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sceui_header, sh  -  the  subfile  header  structure 

*/ 


voidplotrO,  logoegaO,  draw_axi8(),  cnpfftO,  normal (),  getspcO; 
int  errcodO  ; 

float  pi,  minx_val,  m8ucx_val,  miny_val,  Bttaxy_val; 

int  bkgr,  ercod,  lastpeak,  burst,  istps,  iendp,  ichng,  limit,  slimit; 
int  scan,  index,  fpl,  spoints,  imode,  loopsO,  jndex=l,  idly; 
long  int  pktopk,  max_val,  min_val; 
char  ch,  buffer [80]; 

extern  float  raw_buf  [] ,  Bpc_buf  []  ,  spc_bak[]; 
extern  int  raw_data [] ; 
struct  global_header  gh; 
struct  scan_header  sh; 

\inion  REGS  inregs;  /*  REG  structure  for  timing  input  */ 

union  REGS  outregs;  /*  REG  structure  for  timing  output  */ 

/*  check  to  see  if  a  data  filename  was  given  */ 
if  (argc  1=  2) 

{ 

printf ( " \nnsage :  replay  infile\n") ; 
exit (1) ; 

} 

/*  Open  a  file  connection  to  the  Midac  data  file  */ 
if  ((fpl  *  open  (  argv[ll,  0_Rr>0m.Y|0  BINARY))  <  0) 

{ 

printf  ("\n\"MIDC0L\"  is  unable  to  open  %s\n",argv[l] ) ; 
exit (1) ; 

} 

/*  Set  up  the  screen  */ 

_8etvideomode  (_ERESCOLOR) ; 

_setbkcolor  (_BLUE) ; 

/*  read  in  the  global  header  */ 
read  (fpl,  Sgh,  GH_LENGTH) ; 

/*  find  the  number  of  points  in  the  interferogreun  file  -  exit  if  too  large 

*/ 

limit  -  gh.Bcan_siEe; 
slimit  >  limit  /  2; 
if  (limit  >  MAXPOZNTS) 

{ 

printf ("\nERR0R:  >  %d  number  of  points  in  file.  #point8s  %d\n", 
MAXPOINTS,  limit) ; 

} 

/*  set  the  other  parameter  values  */ 
pi*4 .*atan(l . ) ;  /*  the  value  of  pi  */ 

istps  *  1;  /*  the  starting  point  number  to  display  on  the  screen  */ 

iend^  »  400;  /*  the  ending  point  number  to  display  on  the  screen  */ 
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ichng  >  SO;  /*  the  number  of  points  to  expand  or  roll  screen  */ 

spoints  >  limit;  /*  the  maximum  number  of  points  that  can  be  displayed  */ 

iinode*0;  /*  0>>, display  interferogram  ;  l>display  spectrum  */ 

bkgr  ««  1;  /*  set  the  background  flag  to  collect  */ 

idly  *  S;  /*  set  the  delay  timer  for  interferogram  display  */ 

/*  loop  to  get  each  interferogram  to  process  */ 
for  (scan^O;  scan  <«  gh.stop^scan;  scan-t-*-) 

{ 

/*  add  in  a  delay  if  desired  -  comment  this  out  if  running 

on  a  386  system  */ 

inregs.h.ah  *  0x86;  /*  delay  service  */ 

inregs.x.cx  •  idly;  /*  set  the  high  order  delay  vrord  */ 

inregs.x.dx  «  0;  /*  set  the  low  order  delay  vrord  */ 

int86(0xl5,&inregB,&outregs) ;  /*  call  the  ROM  BIOS  timer  delay  service  */ 

- select  user  mode  — — - — - - - — - - */ 

if  (kbhito  I-  0)  /*  check  to  see  if  a  key  was  pressed  •/ 

{ 

ch»getch( ) ; 

if  (ch  FEND)  /*  exit  program  */ 

{ 

close  (fpl); 

_set videomode (_DEF AULTMODE ) ; 
exit(l); 

> 

if  (ch  FRIGHT)  /*  expand  the  screen  display  */ 

{ 

iendp  «  iendp  -  ichng; 
istps  •  Istps  ichng; 
if  (istps  >«  iendp) 

istps  «  istps  -  ichng; 
iendp  *  iendp  +  ichng; 

> 

} 

if  (ch  »  FLEFT)/*  contract  the  screen  display  •/ 

{ 

iendp  «  iendp  ichng; 

istps  >  istps  -  ichng; 

if  (istps  <  1  )  istps  *  1; 

if  (iendp  >  spoints)  iendp  *  spoints; 

} 

if  (ch  »  ROLLR)  /*  roll  the  data  to  the  right  */ 

{ 

iendp  iendp  -  ichng; 
istps  «  istps  -  ichng; 
if  (istps  <  1) 

{ 

istps  «  1; 

iendp  «  iendp  +  ichng; 
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} 

} 

if  (ch  ROLLL)  /*  roll  the  data  to  the  left  */ 

lendp  ■  lendp  +  Ichng; 
istps  >  istps  ichng; 
if  (iendp  >  epointe) 

{ 

iendp  >  epointe; 
ietpe  ■>  epointe  -  ichng; 

} 

} 

if  (ch  »  PINT)/*  dieplay  interferogram  */ 

{ 

imode«0; 
ietpe  -  1; 
iendp  *  400; 
epointe  *  limit; 

} 

if  (ch  ==  FSPEC)/*  dieplay  epectrum  */ 

{ 

imode=l; 
ietpe  >1; 
iendp  >  alimit; 
epointe  •  iendp; 

} 

if  (ch  FDIFF)  /*  dieplay  difference  epectrum  */ 

{ 

imode  <■  3; 
bkgr  >1; 
ietpe  «  181; 
iendp  >  363; 
epointe  *  elimit; 

} 

if  (ch  FSEL5  II  ch  «  FSEL6  | |  ch  ««  FSEL7  | |  ch  FSEL8) 

imode  *3; 

bkgr  *  0; 

ietpe  >  181; 

iendp  «  363; 

epointe  ■  elimit; 

getepc  (epc_bak,  epointe,  ch); 

> 

if  (ch  ■■  MDLY) 

idly  -  idly  +  $; 
if  (ch  »-  LDLY) 

{ 

idly  ■  idly  -  5; 
if  (idly  <  0) 
idly  *0; 

> 
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/. - */ 

/*  r«ad  in  the  subfile  header  Interferogram  information  from  disk  */ 
read(fpl,  fish,  SH_LBN6TH); 

/*  read  in  the  interferogram  data  from  disk  */ 
read  (fpl,  raw_data,  limit*2); 

/*  find  the  number  of  points  in  the  file  to  display  */ 
limit  ■  gh.acan_^size; 

/*  convert  the  integer  array  to  an  ungain  ranged  floating  array  */ 
for  (index  *  0;  index  <  limit;  index-f-i-) 
raw_buf [index-fl]  ■  (float)  raw_data ( index ] ; 
raw_buf {0]*0.0; 
spc_buf [0]>0.0; 

I*  find  the  center  burst  in  the  data  header  */ 
burst  >  8h.peak_location  -  1; 

/*  do  the  Fourier  transformation  if  ZMOOE«1,  set  by  FI  key  */ 
if  (imode  «=  1) 

{ 

cmpfft(raw  buf,  spc  buf,  limit,  pi); 

} 

/*  do  the  difference  spectrum  if  IMODEs^S,  set  by  F3  key  */ 
if  (imode  =*  3  ) 

{ 

if  (bkgr  *=  1) 

{ 

cmpfft  (raw_buf,  spc^buf,  limit,  pi); 

/*  normal  (raw_buf ,spointe) ;  */ 

for  (index^l;  index  <  limit /2;  index-*-*-) 
spc_bak( index-1]  >  raw  buf (index); 

} 

else 

{ 

cmpfft  (raw_buf,  spc_buf,  limit,  pi); 

/*  normal  (raw_buf,  spoints);  */ 

for  (index  «  istps;  index  o  iendp;  index-*-*-) 
raw_buf [index]  «  raw_buf [index]  -  spc_bak[ index-1 ] ; 

} 

> 


/*  find  the  interferogram  error  code  */ 

ercod  >  errcod  (raw_data,  limit,  burst,  lastpeak); 
lastpeak  *  burst; 

/*  find  the  peak  to  peak  value  if  imode  >1  */ 
if  (imode  n  0) 

{ 

max  val  *  0; 
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min_val  *0; 

for  (index  «  1;  Index  <*  limit;  index4-+) 

{ 

maxjval  <■  max(  raw_data  { index  ] »  max_val); 
min_val  «  min(  raw  data [index],  min_val); 

} 

pktopk  «  max  val  -  min_val; 

> 

if  (imode  1  I j  imode  »  3  ) 

minx_val  >  gh.sample_freq  *  (ietpa  **  1); 
maxx_val  >  gh.Bample_freq  *  iendp; 
maxy_val  ■  0.0; 
miny_val  -  0.0; 

for  (index  «  iatps;  index  <*  iendp;  index-t-f) 

{ 

maxy_val  ■  max  (raw_buf [index],  maxy_val); 
roiny_val  «  min  (raw  buf[ index],  miny_val); 

} 

} 

/*  Plot  the  interferogram/ spectral  data  to  the  screen  */ 
loop*loop  '■1; 

_setactivepage ( loop) ; 

_clearBcreen  (_GCLEIASCREEN) ; 

^setvieworg  (0,0); 
logoega  (2,12); 

__setvieworg  (64,175); 

draw^axis  (scan, imode) ;  /*  draw  axis  */ 

if  (imode  0) 

{ 

plotr  (raw_buf,  istps,  iendp,  imode);  /*  display  interferogram  */ 
_settextposition  (  3,  2); 

Bprintf  (buffer,"%5d",max_val) ; 

_outtext (buffer) ; 

__BettextpoBition  (  23,  2); 
sprintf  (buffer, "%5d",min_val) ; 

_outtext  (buffer); 

_settextposition  (  24,  10); 
sprintf  (buffer, "%5d", istps) ; 

_outtext  (buffer); 

_settextpoBition  (24,  70); 
sprintf  (buffer, "%5d", iendp); 
outtext  (buffer); 

} 

if  (iatode  »  1  i  I  iiBode  <»  3  ) 

{ 

plotr  (raw_buf,  istps,  iendp,  imode);  /*  display  spectrum  */ 

^•ettextposition  (  3,  1); 

sprintf  (buf fer, "%6.0f '',aiaxy_val) ; 

jouttext  (buffer); 

_settextposition  (  23,  1); 
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•printf  (buffer, -%6. Of ",miny_v*l); 
jouttext  ( buffer ) ; 

eettextpoeitlon  (  25,  5); 
eprintf  (buffer, "%6.0f " ,minx_val) ; 

_outtext  (buffer); 

_BettextpOBitlon  (  25,  70); 
sprlntf  (buffer,"%6.0f,maxx_val); 

_outtext  (buffer); 

if  (Imode  —  3)  /*  the  dieplay  code  */ 

bkgr«0; 

If  (Bcan  1-0)  /*  display  the  interferogram  error  code  */ 

< 

if  (imode  0) 

{ 

_Bettextpo8ition  (2,  35); 

_outtext  ("peak-to-peak  *  "); 

_Bettextpo8ition  (2,  51); 
sprintf  (buffer,  -%051d",  pktopk); 

_outtext  (buffer); 

> 

_eettextpo8ition  (2,  60); 

_outtext  ("error  code  *"); 

settextposition  (2,73); 
eprintf  (buffer,  "%01d-,  ercod); 
outtext  (buffer); 

>” 

^settextpoeition  (25,13); 

^outtext  ("filename  «  "); 

settextposition  (25,25); 

_outtext  ( argv ( 1 ] ) ; 

if  (ch  >•  PINT  66  ch  <  FLEFT) 
jndex  ■  (int)  ch  -  58; 

_BettextpoBition  (1,2); 

_outtext  ( "F" ) ; 

sprintf  (buffer,-  %ld-,  jndex); 

_outtext  (buffer); 

setvisualpage { loop) ; 

> 

setvideomode  (_DEFAULTMODE) ; 


/•*******•*•********•*•**  end  of  program  REPLAY  •*•*•*•**•**•***••*•*/ 
/************************function  cmpfft  *•**•*****•*•***************/ 
/•  CMPFFT 


This  routine  will  Fourier  transform  an  interferogram.  The  program 
will  rotate  the  interferogram  and  transform.  Ho  phase  correction 
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or  apodlzatlon  is  done.  This  routine  Is  to  be  only  used  for 
real-time  display  where  phase  and  apodization  functions  are  not 
absolutely  required.  Do  not  use  this  routine  for  data  analysis. 

routines  called: 

rotate  -  rotates  an  interferogram  buffer 

burst  -  finds  the  centerburst  of  an  interferogram 

rfft  -  calculates  the  Fourier  transformation 


- */ 

void  cmpfft  (raw__buf,  spc__buf,  ipoints,  pi) 

/*  The  following  global  parameters  are: 

raw_buf  -  a  work  array  used  for  transformation 

spc_buf  -  an  array  containing  the  complex  values  of  the  transformation 
ipointa  -  number  of  points  in  interferogram  array 
pi  -  value  of  pi 

*/ 

float  raw_buf ( ] ,  spc_buf ( ] /  pi; 
int  ipoints; 

{ 

/*  The  following  local  parameters  are: 
i,j, index  -  indexing  variables 

burst  -  value  containing  the  index  of  the  interferogram  centerburst 

*/ 

void  rfft () /rotate( ) ; 

int  f burst ( ) ; 

int  i,  j,  index,  burst; 

for  (i«l;  i  <«  ipoints;  i++) 
spc_buf  t i J  ■  raw_buf [ i ] ; 

/*  find  the  center  burst  of  the  interferogram  */ 

/*  printf  ("to  burst\n");  */ 

/*  printf  ("raw_buf  (SOJ*  %10.5f\n",raw__buf  [50] ) ;  */ 
burst>f burst ( spc_buf , ipoints ) ; 

/*  printf  ("after  buret\n");  "/ 

/*  rotate  the  interferogram  for  the  FFT  */ 

/*  printf  ("to  rotate\n");  */ 

rotate (burst,  spc_buf,  raw_buf,  ipoints); 

/*  printf  ("after  rotate\n");  •/ 

/•  Fourier  transform  the  interferogram  */ 

/•  printf  ("to  rfft\n");  */ 

for  (i*l,  j«l;  j  <■  ipoints;  i+»2,  j++) 

{ 

spc_buf [ i J  ■  raw_buf ( j ] ; 
spc_bu£(i+l]  ■  0.0; 

/•  printf  ("spc_buf (%04d)*%10.5£\n",i,spc__bu£[i] ) ;*/ 

/*  printf  ("spc_buf  [%04d]*%10.Sf\n",i-*-l,spc_buf  [i+1] ) ;  */ 

> 


Appendix  C 


41 


rfft (■pc_buf ,  ipointB,  pi); 

/*  printf  ("after  rf£t\n");  */ 

/*  compute  the  power  spectrum  */ 

/*  printf  ("to  power  spectrtim  eelcuIation\n”} ;  */ 
for  (  i*l,  j«0  ;  i  <*  ipoints  ;  i+*2,  j++> 

{ 

raw_buf ( j ) ■  eqrt ( spc_buf ( i ) *epc__buf ( i J  +opc_buf ( i+l j  *spc_buf ( i+1 ] ) ; 
/*  printf  ("raw_buf (%04dJ«%10.5f\n", j,raw__bu£( j J) ;  */ 

) 

/*  printf  ("after  power  spectrum  calculation\n" ) ;  */ 

> 

/***********************  end  of  CMPFPT  *******»**********************/ 
/*******************•***  function  rfft  ******************************/ 
/*  RFFT 

This  routine  will  compute  the  Fourier  transform  using  the  method 
originally  written  by  N.  Brenner  of  Lincoln  Laboratories 

routines  called: 

NONE 

- - - */ 

void  rfft  (spc_buf,  ipoints,  pi) 

/*  The  following  global  parameters  are: 

spc^buf  -  the  interferogram  values  stored  in  complex  form 
ipoints  -  number  of  points  in  interferogram 
pi  -  value  of  pi 

*1 

float  spc_buf[],  pi; 
int  ipoints; 

{ 

int  i,  n,  istep,  j,  mmax,  m; 

float  wain,  theta,  tempr,  tempi,  wr,  wi,  wterop,  wpr,  wpi; 

n>  2  *  ipoints; 
j-ll 

/*  bit  reversal  section  */ 
for  (i«l;  i  <*  n  ;  i+=2) 

{ 

if  (j  >  i) 

{ 

/*  Note:  several  statements  have  been  commented  out  for  the  case 

where  input  imaginary  values  are  always  sero.  If  this  is 
not  true,  then  these  statements  must  be  used. 

V 

tempr  >  spc_buf{j]; 

/*  tempi  ■  Bpc_buf ( j+1 J ;  */ 

Bpc_buf[j)  ■  spc_buf(i]; 

/*  Bpc_buf(j+1]  «  spcjbuf  [i't’l];  */ 

spc_bu  f ( i ]  ■  tempr ; 

/*  spc_buf(i+lj  «  tempi;  */ 
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} 

in>n/2 ; 

while  (  m  >*  2  66  j  >  m  ) 

{ 

j-j-m; 
m-m/2;  ' 

> 


/*  compute  the  butterfliee  */ 
imnax«2; 

while  (  n  >  mmax  ) 

< 

iatep>  2  *  mmax; 

theta  «  2.0  *  pi  /(float) mmax; 

wain  8in(0.S  *  theta); 

wpr  ■  -2.0*wain*w8in; 

wpi  ■  ain(theta); 

wr  >  1.0; 

wi  ■  0.0; 

for  (m=l;  m  <-  mmax;  m'*->2) 

for  (i*m;  i  <«  n;  i«i+iatep) 

{ 

jsi-Hnmax; 

tempr  •  wr*apc_buf ( j  J  -  wi*apc_buf ( j +1 ) ; 
tempi  «  wr*8pc_buf { j+lj  ♦  wi*epc__buf ( jj; 
apc_buf(j]  ■  8pc_buf(i]  *>  tempr; 
apc_buf[j+l]  ■  apc_buf(i+lj  -  tempi; 

8pc_buf[i]  -  apc_buf[i]  *  tempr; 
ape  buf{i+l]  -  apc_buf (i-fl]  +  tempi; 

} 

%ftefflp  «  wr; 

wr  ■  wr*wpr  -  wi*wpi  +  wr; 
wi  ■  wi*wpr  +  wtemp*wpi  +  wi; 

} 

mmax«i8tep; 

) 

) 

/•**********************  and  of  RFFT  ••••••*•**«•**••*•••****•*••**••/ 

/************•********•*  function  fburet  ****•**•****•*•*•***********/ 
/*  FBORST 

Thia  routine  will  find  the  center  burat  of  an  interferogram  array. 
The  routine  in  a  function  call  aa  the  burat  value  ia  returned. 

routinea  ealledt 
NONE 

- */ 

int  f burat ( raw_buf , ipoint a ) 
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/*  The  following  global  parametera  aret 
raw_buf  **  the  interferogram  array 
Ipolnta  ~  the  number  of  points  In  Interferogram 

V 

float  raw_buf[]; 

Int  ipolnta; 

{ 

int  i,max_loc,  min_loc; 
float  max_valsO . 0 ,  min_valBO.O; 

/•  printf  ("ipolnta  in  f bursts  %04d\n" , ipolnta ) ; 
printf  ("raw_buf [50]-  %10.5f\n"»raw_buf [50] ) ;•/ 
for  (i«l;i  <-  ipolnta;  i++) 
if  (raw  buf[i]  >  max_val) 

{ 

max__val-raw_buf  [  1  ] ; 
max_loc  -  i; 

i*  printf ("max_loc-  %04d\n"/max__loc) ;  */ 

} 

else  if  (raw_buf[i]  <  fflin_val) 

{ 

rain_val  -  raw_buf [ i ] ; 
min_loc  -  i; 

/*  printf  ("min  loc-  %04d\n",min_loc) ;  */ 

} 

if  ( f aba ( (double)  min_val)  >  iiiax:_val) 
return  (min_loc); 

else 

return  (max_loc); 

> 


/«*«*«******•***********  end  of  FBURST  * 
/****•***********«**•*•*  function  normal 


/*  HORMAL 

This  routine  is  used  to  normalize  the  spectral  buffer. 

routines  called: 

NONE 


void  normal  (buffer,  ipolnta) 
float  buffer]]; 


int  index; 
float  sag  -  0.0; 

for  (index  -  0;  index  <  ipolnta;  index+4’) 
sag  buffer]  index]  *  buffer  [index]; 

if  (sag  >  0.0) 
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••q  •  ipoints  /  aqrt  (aaq); 

•lae 

aaq  *  1.0; 

for  (index  >0;  index  <  ipointa;  index+-t-) 
buffer [index]  **  aaq; 

} 

/******************•****  end  of  normal  *•******•*******•**•**********/ 
y***********************  function  rotate  ****************************/ 
/•  ROTATE 

Thia  routine  will  rotate  an  interferoqram  buffer.  The  buffer  will 
be  rotated  no  that  the  center  burnt  ia  in  array  poaition  1. 

routinea  called: 

NONE 


void  rotate  (buret,  raw_buf,  apc__buf,  ipointa) 

/*  The  following  parametera  are: 

raw_buf  >  the  input  interferoqram  buffer 

apc_,buf  -  the  rotated  interferoqram  buffer 

burnt  -  the  interferoqram  center  burnt  array  poaition 

ipointa  o  number  of  interferoqram  pointn  ia  arraye 

•/ 

float  raw_buf ( ) ,  npc_buf ( J ; 
int  ipointa,  burnt; 

{ 

int  oiqdex,  nindex; 

for  (oindex^burat,  nindex^l;  oindex  <«*  ipointa;  oindex-f-f,  nindex-i--*-) 
apc_buf (nindex]  »  raw_buf [oindex] ; 

/•  nindex->l;  */ 

for  (oindex>l;  oindex  <  buret;  oindex'*-!-) 

{ 

apc_buf [nindex]  «  raw_buf [oindex] ; 
nindexi-f ; 

} 

) 

/***********•*•*•*«•**••  and  of  ROTATE  ***********•******•***********/ 
/**•**•*****•*********•*  function  draw__axia  •***•********•********•**/ 
/*  DRAW_AXIS  ” 

Thin  routine  will  draw  the  axia  for  either  an  interferoqram  or 
npectrum  dieplay. 

routinea  called: 

Microeoft  C  qraphicn  diaplay  routinea 


void  draw_axia  (acan,imode) 

/*  The  following  parametera  are: 
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scan  -  the  scan  nundser 

imode  -  display  node  type;  O»interferogram,  laspectrum 

•/ 

int  scan,  inode; 

{ 

int  i,  ih; 
char  buffer [80]; 


if  (inode  M  1) 
ih  -  150; 

else 

ih  -  0; 


noveto  (0,  ih+0);  /*  Print  the  X  axis  */ 

“lineto  (512,  ih+0); 

“noveto  (0,150);  /*  Print  the  Y  axis  */ 

_lineto  (0,-150); 

for(i  -0;  i  <«  512;  i  +*  64)  /*Print  the  X  axis  tick  marks  */ 
{ 

jBOvet o ( i ,  ih+5 ) ; 
lineto(i,  ih+O); 

> 

for(i  *0;  i  <•  512;  i  +*=  32) 

{ 

_Mveto(i,  ih-t-J); 
lineto(i,  ih-i-0); 

T 


for(i  ■»  0;  i  <»  512;  i  +*  16) 

^oioveto  ( i ,  ih-*'2 ) ; 

“lineto(i,  ih+0); 

> 


/*  for(i  ■  150;  i  >  -150;  i  -»  25)  Print  the  Y  axis  tick  narks 
{ 

_moveto(-4,  i+1); 
lineto(0,  i+1); 

T  •/ 


/*  Label  the  axis  */ 

settextposition(25,51) ;  /•  X  WCIS  ♦/ 

“outtext  ("  SCAN  #  "); 

sprintf  (buffer,  '‘%05d'' ,  scan) ; 

_settextposition(25,60) ; 

_outtext  (buffer); 

if  (inode  ■»  3)  /*  if  difference  spectrun  add  units  •/ 

< 

_settextpo8ition  (25,  8); 
outtext  ("700"); 


Appendix  C 


46 


_Mttextpo8ltion  (25,70); 

_outt«xt  ( " 1400" ) ; 

} 

•ett«xtpo8ition(9,5);  /*  Y  AXIS  */ 

outt«xt  ("A"); 

■«tt«xtpoaition(10,5) ; 
outtaxt  ("/"); 
sett extpos it ion ( 1 1 , 5 ) ; 
outtoxt  ("D"); 
settextposit ion (13,5); 
outtext  ("u"); 
settextposit ion (14,5); 
outtext  ( "n" ) ; 
set text posit ion ( 15 , 5 ) ; 
outtext  ("i"); 
settextposit ion (16,5); 
outtext  ("t"); 
settextposit ion (17,5); 
outtext  ("s"); 


} 

y***************************  of  DPAt;  AXIS  ***************************** 

^***************************  function  loQoe^s  ***************************** 
/*  logoega  is  a  function  used  to  create  the  CBDA  logo  for  EGA  graphics. 

The  funtion  requires  two  parameters,  the  x  and  y  coordinates  for  the 
first  letter  "C".  If  the  logo  coordinates  are  outside  the  exceptable 
range,  no  logo  will  be  plotted. 

author:  John  Ditillo 
modified  by:  Bob  Kroutil 

logoega  was  based  on  the  "old”  CROEC  logo  routine 
written  by  John  T.  Ditillo 

date:  October  1992  */ 

void  logoega(y,x) 
int  y,  x; 

{ 

int  xp,  yp; 

if  (y<23  t  y>l  6  x<76  6  x>2) 

/*  draw  the  logo  */ 

_^settextposition(y,x) ; 

_outtext  ( "C" ) ; 

_8ettextpo8ition(y+l,x-l) ; 

"outtext  ("B  D"); 
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__*«tt®xtp08ition(y+2,*) ; 

_outtext  ( "A" ) ; 

/*  Cxlculxt®  first  pixel  location  */ 
yp  «  y  *  14  -  16; 
xp  «  X  •  8  -  5; 

/*  first  benzene  */ 

_ii»oveto(xp,yp) ; 

_1 ineto ( xp-8 , yp+3 ) I 
_1 ineto ( xp-8 , yp+ 13 ) ; 
_lineto(xp,yp+17) ; 
__lineto(xp+8,yp+13) ; 

_1 ineto ( xp+8 , yp+3 ) ; 

_lineto(xp,yp); 

/*  second  benzene  +/ 
jtnoveto  ( xp-8 ,  yp+ 1 3 )  ; 
_lineto(xp-16,yp+17) ; 
_lineto(xp-16,yp+27) ; 

_1  ineto ( xp-8 , yp+3 1 ) ; 
_lineto(xp,yp+27) ; 

_lineto(xp,yp+17) ; 

/*  third  benzene  */ 
jBOveto(xp+8,yp+13) ; 
_lineto(xp+16,yp+17) ; 
__lineto(xp+16,yp+27) ; 

^1  ineto ( xp+8 , yp+ 3 1 ) ; 
_lineto(xp,yp<-27) ; 

/*  fourth  benzene  */ 

_iiioveto  <  xp-8 ,  yp+31 ) ; 
_lineto(xp-8,yp+42) ; 
_lineto(xp,yp+45) ; 
_lineto(xp+8,yp+42) ; 

1 ineto (xp+8, yp+31) ; 


> 

>  . . . . ....... 

/***************•**•****  end  of  LOGOEGA  «*••**++*•****•*+*+*********/ 

/*•******•*****•**•++++*  function  plotr  •*•*+*+•**••+*•*+*********+*/ 
/*  PLOTR 

This  routine  is  used  to  scale  and  display  the  interferogram  or 
spectrum. 

routines  called: 

Microsoft  C  graphics  routines 

_ _ 
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void  plotr  (buf ,i8tp8,lendp,imode) 

/*  The  following  parametero  are: 

buf  -  the  array  buffer  to  plot 

iatpe  >  the  etarting  point  number  to  plot 

iendp  -  the  ending  point  number  to  plot 

ifflode  -  the  diaplay  mode  (O«interferogram,  iBapectrum) 

*/ 

float  buf ( ] f 

int  iatpe, iendpfiffiode; 

< 

int  index,  x,  y,  ih,  ip; 
float  max,  xacale,  yacale; 

/*  find  the  number  of  pointa  to  plot  */ 
ip  »  iendp  -  iatpe; 

/*  find  the  largeet  value  */ 

for  (index>ietpe,  max>0.0;  index  <  iendp;  index-f-f) 

{ 

if  ( (fab8( (double)buf [index] ) }  >  max) 

max  -  (float)  (faba( (double ) buf [index] )) ; 

} 

/*  Calculate  the  acaling  factor  */ 
xacale  »  512. 0/ip; 
if  (imode  1) 

( 

yacale  ■  300.0/max; 
ih  •  150; 

} 

elae 

{ 

yacale  >  150.0/max; 
ih  •  0; 

} 

/•  plot  the  data  */ 

jmoveto  (0,  (int)  -(buf[ietp8]  *  yacale  -  ih)); 
for  (index>l;  index  <  ip;  index-t-*-) 

< 

X  «  (int)  index  *  xacale; 

y  •  (int)  -(buf [index-t-iatpa]  *  yacale  -  ih); 
lineto  (x,y); 

}“ 


> 

/***•************••*•***•***  and  of  PLOTR  •**********************•***/ 
/****************•*********«  function  getapc  •***•*********•*********/ 
/•  GBTSPC 

Thin  routine  will  get  up  to  4  black  body  apectra  on  the  diak  and 
read  them  into  an  array.  The  atored  apectra  are  SpectraCalc 
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floating  point  binary  format  (FSP  fonaat  -  use  the  input  and 
output  conmands  in  SpectraCalc) . 

routines  called: 

NONE 


- */ 

void  getspc  (spc_bak,  ipts,  ch) 

/*  The  following  parameters  are: 

spc_bak  -  the  array  that  contains  the  4  etored  spectral  responses 
ipts  -  the  number  of  points  in  the  array 
ch  -  a  flag  to  tell  which  spectrum  file  to  read 

V 


float  spc_bak[ ] ; 
int  ipts; 
char  ch; 

int  fp3; 

float  numpts,  firstx,  lastx,  xunits,  yunita,  res; 
char  afile(20]; 

/*  load  the  black  body  spectra  */ 


if  (ch  —  FSEL5) 

strcpy  (afile, "fS.fsp" ) ; 
if  (ch  ««  FSEI.6) 

strcpy  (afile, "fS.fsp") ; 
if  (ch  -«  FSEL7) 

strcpy  (afile,"f7.fsp"); 
if  (ch  «  FSEL8) 

strcpy  (afile,"f8.f8p''); 


if  ((fp3  -  open  (af ile,0_RDONLr {0_BINARy) )  >-  0) 

{ 


read  (fp3, 
read  (fp3, 
read  (fp3, 
read  (fp3, 
read  (fp3, 
read  (fp3. 


(char  *)  finumpts,  4); 
(char  *)  fifirstx,  4); 
(char  *)  filastx,  4); 
(char  *)  fixunits,  4); 
(char  *)  fiyunits,  4); 
(char  *)  fires,  4); 


if  (  read  (fp3,  spc^bak,  4  *  ipts)  !•  4  *  ipts) 

printf (”\nUnable  to  read  disk  stored  black  body  file.\n"); 


close  (fp3); 

) 

} 

/***************************  end  of  getspc  *•*•*•***•****************/ 
/********•**********•*******  function  errcod  ••****•*•*•***•*•***•***/ 
/*  ERRCOD 
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This  routins  will  determine  if  the  interferogrsm  hss  an  error. 

routines  called: 

NONE 


int  errcod  (raw_data,  ipoints,  burst,  lastpeak) 

/*  The  following  parameters  are: 

raw_buf  -  the  integer  buffer  array  to  test 

ipoints  -  number  of  points  in  array 

burst  -  the  array  location  of  the  center  burst 

lastpeak  -  the  last  array  location  holding  the  previous  center  burst 

*/ 

int  raw  data[],  burst,  lastpeak,  ipoints; 

{ 

int  ercod; 

ercod  ••  0; 

if  (ipoints  <  1024) 
ercod  -  1; 

if  ( raw__data  [  burst  ]  >*  32767) 
ercod  -  2; 

if  (lastpeak  !«  burst) 
ercod  >  3; 
if  (burst  >  500) 
ercod  «  4; 

if  ( abs(raw__data( burst  ] )  <  4096) 
ercod  >5; 

/*  NOTE:  error  code  for  bit  toggle  not  yet  implemented  */ 

return  (ercod); 

} 
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APPENDIX  D 


MIDCOL  DATA  COLLECTION  PROGRAM 

^4r**#*****i**********'*****  px'o^iTSin  MXDCOli  **♦*♦**★★*♦*♦***♦***★★**★****♦**/ 
/* 

program  MIDCOL  Version  3.0 

This  program  is  used  to  read  interferogram  data,  display, 
interferogram  data,  euid  Fourier  trauisform  the  data  for 
display.  This  program  will  be  used  for  data  collection 
for  the  Midac  interf ercmeter . 

author:  Bob  Kroutil,  Mike  Housky 

date:  August  1992 

routines  cal led : 

plotr  -  plots  an  interferogram  or  spectrum 
logoega  •  prints  the  CRDEC  logo 

draw_eocis  -  draws  the  axis  for  the  plots  for  either  interferogram 
or  spectra 

cnpfft  -  confutes  the  fast  Fourier  tremsform 
normal  -  normalizes  the  spectrum 

MidAqInit  -  initialize  the  Midac  interferometer 
HidAqStartScan  •  set  up  scauining  for  Midac 
Microsoft  C  graphics  routines 

This  software  is  property  of  the  U.S.  Army.  The  distribution  of  this 
code  is  unlimited.  This  software  can  not  be  sold.  The  U.S.  Army  is 
not  responsible  for  the  results  obtained  through  the  use  of  this 
software. 

. */ 


#include 
#include 
#include 
# include 
#include 
#include 
^include 
# include 


<stdio.h> 
<stdlib.h> 
<fcntl .h> 
<graph . h> 
<math . h> 
<string.h> 
<time .h> 
"headers .def" 


#include  <stddef .h>/*  Stauidard  ANSI  headers*/ 
tinclude  <conio.h>/*  MSC*specific  headers*/ 
#include  <dos.h> 

#include  "middef.h"/*  Midac- specific  headers*/ 

h  . - . 

/*  Local  definitions: 

/*  . 


/*  MSC7/MSC6  Portability: 
#ifdef  MSC_VER 


*/ 

*/ 

*/ 

*/ 


53 


#if  MSC_VER  >■  700 
#de£ine  outp  _outp 
#d«£ine  inp  inp 
#«ndif 
#«ndl£ 


#de£lne  TIMEOUT  30.0 


/*  DMA  Completion  timeout,  in  seconds 


/*  Defaults  for  MidAqInit: 


#define  DMA 
#deflne  DMAPAGE 

#define  IRQ 
/define  GAIN 
/define  BUFPTS 

/define  MAXDMA 


1  /*  Default  DMA  channel 

0x83  /*  DMA  page  register  port  for  default 

channel  */ 

2  /*  Default  IRQ  channel 

0  /*  Default  signal  gain  level  (0-7) 

16384  /*  Default  DMA  buffer  size  in  data 

points  *! 

0xFF80  /*  Maximum  DMA  buffer  size  in  bytes 


/*  Note:  MAXDMA  must  be  less  than  the  "ideal"  limit  of  */ 
/*  64K  for  the  GetDmaBuffer  function  to  vrork  properly.  */ 


Syscem  board  (PC/AT)  I/O  definitions: 


/define  SYS  DMAl 


0x00  f*  Base  of  byte  DMA  controller 


/*  These  ports  are  channel-independent: 


/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 


DMA_STAT 

DMA_CM0 

DMA_REQ 

DMA~WSMR 

DMA_MODE 

DMA_CLRF 

DMA_TEMP 

DMA_MCLR 

0MA_CMSK 

DMA  NAMR 


_DMA1+  8)  /* 
”dMA1+  8)  /* 
”dMA1+  9)  j* 
'dMAI+10)  /* 
”dMA1+11)  /* 
”dMA1+12)  /• 
'dMAI+13)  /• 
”dMA1+13)  /• 
”dMA1+14)  /* 
'dMAI'I'IS)  /* 


(R)  Status  register 

(W)  Command  register 

(H)  Request  register 

(W)  Write  single  mask  register 

(W)  Mode  register 

(W)  Clear  byte  pointer  flip-flop 

(R)  Temporary  register 

(W)  Master  Clear 

(W)  Clear  mask  register 

(W)  Write  all  siask  register  bits 


/*  These  occur  4  times,  once  for  each  channel.  Add  2* (channel  number) 
/*  to  get  true  port  address: 


/define  DMA_ADDR  (SyS_DMAl-t-  O) 
/define  DMA~CTR  (SyS_DMAl-f  1) 

/define  SYS_PIC1  0x20 

/define  PIcI_CMD  (SYS_PICl+0) 
/define  PICl'sTAT  (SYS~PICl+0) 
/define  PIC1”mASK  (SYS~PIC1+1) 


/"  (R/W)  Base  or  current  address  */ 
/*  (R/W)  Base  or  current  word  count  */ 

/•  Base  of  primary  interrupt  controller  */ 
/*  (W)  Command  register  (OCW2/OCW3)  */ 
/*  (R)  Status  register  (ISR  or  IRR)  */ 
/*  (R/W)  Interrupt  mask  register  */ 
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/define 

SYS_PIC2 

OxAO 

f* 

/define 

PIC2_CMD 

(SYS_PIC2+0) 

/* 

/define 

PIC2~STAT 

(SYs“piC2+0) 

/define 

PIC2~MASK 

(SYS~PIC2+1) 

!* 

/define 

PICC  EOI 

0x20 

/* 

/ 

*  command 

/* 

Local 

Macros : 

*! 

Ba«e  of  secondary  Int.  controller 
(N)  Connand  register  (OCW2/OCH3) 

(R)  Status  register  (XSR  or  IRR) 
(R/W)  Interrupt  otask  register 

OCW2  (nonspecific)  End-Of-Znterrupt 

*/ 


*! 

*/ 

*/ 

*/ 

*/ 


#define  PtrToLong(p)  ( ( (long)FP_SEG(p)  «  4}  (long)PP_OPF(p) ) 
/*  Macro  to  convert  far  pointer  to  */ 

/*  20-bit  absolute  address  */ 


#define  DisableDmaCch)  outp(DMA_WSMR,  (ch)-t-4)  /*  Disable  DMA  channel  */ 
/define  EnableDma(ch)  outp(OMA_HSMR,  (ch))  /*  Enable  DMA  channel  */ 


/*  Input  and  output  from  read-only  command  port,  a  shadow  copy  of  the  */ 
/*  port  value  is  kept  in  MidGbl.CmpPort:  */ 


/define  Cmdln()  (MidGbl.CmdPort) 

/define  CmdOut(val)  (outp(MID_CMD,  MidGbl.CmdPort  «  (int)(val)),  \ 

outp(MID_CMD,  MidGbl.CmdPort)) 


/. - - / 

/*  Global  variables:  */ 

/. - - - */ 


MidAqGlobalType  near  MidGbl;  /*  Global  paramater/context  variables  */ 

static  int  near  DmaPageTable [ 8 ]  *  /*  Table  of  DMA  page  register  ports  */ 

{  0x87,  0x83,  0x81,  0x82,  -1,  0x8B,  0x89,  0x8A  }f 


/*  The  following 
LIMIT  « 

PLIMIT  * 

SLIMIT  « 

CH_LIMIT  « 

SH~LIMIT  • 

FElb  * 

FRIGHT  « 

FHOME  • 

FLEFT  « 

PINT  ■ 

FSPEC  « 

FSCOL  « 

FDIFF  - 

FBACK  « 

fsels  - 

FSEL6  > 


global  parameters  are  the  following: 

the  number  of  interferogram  points 

the  nundser  of  sampled  midac  interferogram  points 

the  number  of  spectral  points 

the  number  of  bytes  in  the  global  interferogram  header 

the  number  of  points  in  the  subfile  interferogram  header 

the  key  code  to  exit  the  program 

the  key  code  to  expand  the  interferogram  display 

the  key  code  to  reset  the  interferogram  display 

the  key  code  to  compress  the  interferogram  display 

the  key  code  to  display  interfarograms 

the  key  code  to  display  spectra 

the  key  code  to  collect  interferograms  to  disk 

the  key  code  to  display  a  difference  spectrum 

the  key  code  to  calculate  a  background  spectrum 

the  key  code  to  subtract  the  disk  file  fS.fsp 

the  key  code  to  subtract  the  disk  file  f6.fsp 
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FSEL7  •  th«  k«y  coda  to  subtract  the  disk  file  f7.fap 

FSEL8  *  the  key  code  to  subtract  the  disk  file  fS.fsp 

ROLLL  •  the  key  code  to  roll  the  display  data  to  the  left 

ROLLR  *  the  key  code  to  roll  the  display  data  to  the  right 

PMODE  ■  the  file  read/write  attributes 

•/ 

#define  LIMIT  1024 
#define  PLIMIT  1024 
#define  SLIMIT  513 
#define  GH_LEN6TH  512 
#define  SH^LENGTH  64 
#define  FEND  79 
#define  FRIGHT  68 
#define  FHOME  71 
#define  FLEFT  67 
#define  FINT  59 
#define  FSEL5  63 
#define  FSEL6  64 
/define  FSEL7  65 
/define  FSEL8  66 
/define  FSPEC  60 
/define  FSCOL  61 
/define  FDIFF  62 
/define  ROLLL  75 
/define  ROLLR  77 
/define  PMOOE  0644 

main(ar9C,  argv) 
int  argc; 
char  *argv(]; 

{ 

/*  The  following  parameters  are: 

raw_buf  -  the  interferogram  buffer  (real  values) 

spc_buf  -  the  complex  interferogram  buffer,  also  used  as  a 

work  array 

pi  -  value  of  the  constant  pi 

scan  -  the  scan  number 

index  -  an  indexing  variable 

fp2  -  file  open  variables 

Ipoints  -  number  of  points  in  interferogram  to  display 

spoints  -  number  of  points  in  the  spectrum 

imode  -  0«display  interferogram,  l«display  apectrum 

inode  -  set  data  collect  switch 

loop  ->  graphics  display  page 

wscan  -  scan  number  writing  to  disk 

ch  -  used  for  an  input 

bkgr  -  the  collect  background  flag 

ispts  -  starting  spectral  plotting  point  for  difference 

spectrum 

iendp  -  ending  spectral  plotting  point  for  difference 

spectrum 
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*/ 


iastpeak 

axtp 

drivap 

dlrp 

lcount2 

outnama 

dirname 

idata 

itine 

raa 

coll 

Itypa 

apaad 

mirror 

aampla 

atartf 

stopf 

mxwav 

across 

tamp 

barp 

humid 

wind 

windd 

sandir 

pracc 

sans id 

oparnam 

global_haadar , gh 
scan_headar, sh 
igain 


-  last  array  position  of  inter farogram  center  burst 

-  the  input  axtansion  filename 

-  the  input  drive  filename 

-  the  input  directory  filenasie 

-  the  index  for  number  of  bytes  to  copy 

-  the  global  header  filenaote 

-  the  input  filename  to  store  to  disk 

-  the  array  to  hold  the  date 

-  the  array  to  hold  the  time 

-  the  instrument  resolution 

-  data  collection  aiode 

-  integer  data  type 

-  interferometer  scan  speed 

-  interferometer  mirror  siovament 

•>  spectral  waventunber  sampling  interval 

-  starting  wavenumber 

-  ending  wavenumber 

-  maximum  wavenumber  frequency  that  can  be  sampled 

-  number  of  zero  crossings  per  sampled  point 

-  ambient  temperature 

-  barometric  pressure 

-  relative  humidity 

-  wind  speed 

o  wind  direction 

-  sensor  pointing  direction 

-  precipitation  code 

-  array  for  sensor  name 

-  array  for  operators  name 

-  the  global  header  structure 

-  the  subfile  header  structure 

-  the  A/0  gain  of  the  interferometer  (0-7) 


int  MidAqInitO,  MidAqSetGain () ; 
void  MidAqStartScan ( ) ; 
int  wrtint( ) ; 

void  dispinto,  dispspec(),  diffspc(),  logoega(),  getspc(); 
float  raw_buf (LIMIT+IJ,  spc_buf (2*LIMlT+2) ,  spc_bak[LIMIT+l) ,  pi; 
int  inode,  wscan,  bkgr,  spoints,  jndex  •  1; 

int  scan,  index,  imode,  loop>0,  Iastpeak,  istps,  iendp,  ichng; 
char  ch,  buffer [4],  outname(10],  dirname[40],  idate[10],  itime[10]; 
double  res,  mirror,  speed,  sample,  startf,  stopf,  barp,  sucwav; 
char  comml { 64 ] ,  comm2 ( 64 ] ,  comm3 [ 64 ] ,  comm4 [ 64 ] ; 
int  coll,  ityps,  temp,  humid,  wind,  windd,  sendir,  pracc,  ierr; 
int  fp2,  burst,  zcross,  maxscan,  igain; 

char  sensid[20],  opernam(10],  extp(4),  drivep[10],  dirp[10]; 

size_t  hdcl,  icount2a20; 

unsigned  long  t0,tl; 

struct  global_header  gh; 

struct  scan  header  ah; 


/*  set  the  siaximum  number  of  scans  to  collect  by  an  input  switch  */ 
if  (argc  2) 
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maxscan  =  550; 
else 

maxscan  *  3000; 

/*  ask  the  user  to  input  eui  output  data  collection  filename  */ 

_clearscreen  (_GCIiGARSCR5En)  ; 

printf { " \nMIDC0L  -  Midac  remote  sensing  data  collection  program 
Version  3.0\n"); 

printf ( ” \nThe  program  switcli  is  set  to  collect  up  to  %d  interf erograms  to 
disk.\n*,m2uc8can)  ; 

printf (” \nlnput  the  data  filename  to  store  to  disk;  ") ; 
scanf  ( "ts ” ,  dimame) ; 
hdcl  s  10; 

memset  ( &outname ,32, hdcl ) ; 

_8plitpath  (dimame,  drivep,  dirp,  outname,  extp)  ; 
strupr  (outname) ; 

/*  initialize  the  input  buffers  */ 
hdcl  s64 ; 

memset (&comml , 32 , hdcl ) ; 
memset  ( &coRim2 , 32 ,  hdcl )  ; 
memset  ( &coaim3 , 32 ,  hdcl )  ; 
memset (&comm4, 32, hdcl) ; 

printf  ("\nlnput  four  lines  for  couiments : \n" ) ; 

gets  (comml) ; 

printf  (">>") ; 

gets  (comml) ; 

printf  ("»")  ; 

gets  (comml) ; 

printf  (">>"); 

gets  (commS) ; 

printf  (">>"); 

gets  (comm4) ; 

/*  set  up  the  graphics  mode  and  clear  screen  */ 

_setvideomode  (_ER£SCOLOR) ; 

_setbkcolor  (_BLUE) ; 

_settextposition  (13,  20); 

_outtext  ("Please  Wait  --  Initializing  Interferometer"); 

/•■•■•■■-a«»aMcreate  the  global  header«*M«-«>»>»>B»*s«>»«»M»s«*/ 

/*  create  a  new  global  header  */ 

/*  clear  the  global  header  buffers  with  blanks  */ 
hdcl-512 ; 

memset  (&gh, 32,hdcl) ; 
hdcl  >  54 ; 

/*  initialize  the  default  global  header  data  parameters  */ 
coll  «  0;  /*  data  collection  mode  */ 

itype  K  1;  /*  integer  data  type  */ 

res  >8.0;  /*  instrument  resolution  */ 
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speed  B  2.2; 

/* 

interferometer  scaui  speed  */ 

mirror  b  2.5; 

/* 

interferometer  mirror  velocity  */ 

sample  b  3.856933; 

/* 

sampling  frequency  parameter  */ 

startf  B  0.0; 

/* 

starting  wavenumber  */ 

stopf  B  1974.75; 

/* 

ending  wavenumber  */ 

mxwav  B  15796.0; 

/* 

maximum  saapling  frequency  */ 

across  b  800; 

/* 

ninnber  of  laser  fringes  per  point  *  100  */ 

tenp  B  0; 

/* 

ambient  tesperature  */ 

barp  B  0.0; 

/* 

barometric  pressure  */ 

h\jmid  B  0; 

/* 

relative  htonidity  */ 

wind  B  0; 

/* 

wind  speed  */ 

windd  B  0; 

/* 

wind  direction  */ 

sendir  s  O; 

/* 

sensor  direction  */ 

precc  B  0; 

/* 

precipitation  code  */ 

strcpy  (sensid, "Midac  \mit  #120  ") ;  /*  set  the  sensor  name  */ 

strcpy  (qpemam, "  ");  /*  blank  out  the  operators  name  */ 


/* . 

/*  stuff  in  the  integer  euid  double  header  information  into 
the  correct  locations  */ 


gh.collect_mode  *  coll; 
gh . integer_type  =  itype; 
gh.scan_size  =  LIMIT; 
gh . resolution  ■  res; 
gh.scan_8peed  «  speed; 
gh.mirror_velocity  *  mirror; 
gh . sanple_f req  ■  san^le; 
gh.start^freq  «  startf; 
gh.stpp_freq  «  stopf; 
gh.max_wav  m  mxwav; 
gh.zercross  «  across; 
gh .  eunbient_teiip  s  ten^; 
gh.bar_preB8ure  «  barp; 
gh. humidity  «  humid; 
gh.wind_8peed  «  wind; 
gh.wind_direction  ■  windd; 
gh.sensor_direction  b  sendir; 
gh.precip_code  >  precc; 


/*  copy  the  sensor  id  */ 
icount2  ■  20; 

memcpy  (&gh.sen8or_id,  &8ensid,  icount2) ; 


/*  copy  the  comment  field  */ 
icount2B64 ; 

memcpy  (&gh.camml,  £comml, 
memcpy  (&gh.camm2,  &coaBn2, 
memcpy  (&gh.camm3,  fccamm3, 
memcpy  ( 6gh .  comm4 ,  &canBi4 , 


icount2) 

icount2) 

icount2) 

icount2) 


*/ 
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/*  find  th«  starting  date  and  tine  */ 

_strt  ime  ( it  ine ) ; 
ieount2  •  10; 

aiemcpy  (6gh.start__time,  ftitine,  icount2); 

__strdate  (idate); 

aMHDCpy  (ftgh.date,  fiidate,  icount2); 

/*  input  the  operators  name  */ 

aiemcpy  (&gh. operator,  Kopernam,  icount2); 

/*  input  the  filename  into  the  header  */ 
aiemcpy  (figh. filename,  fioutname,  icount2); 

if  (fp2  *  creat  (dirname,  PMODE)  <  0  ) 

_setvideomode  ( J)EFAULTMODE) ; 

printf  ("\n\"MIDCOL\"  is  unable  to  create  %s\n", dirname ) ; 
exit (2); 

> 

if  ((fp2  -  open  (dirname,  0_HR0NLy lO^BXNARY) )  <  0) 

{ 

_setvideomode  (_DEFAULTMODE) ; 

printf  ("\n\''MIDCOL\"  is  unable  to  open  %s\n", dirname ) ; 
exit (2); 

} 

/*  write  the  global  header  information  */ 
tnrite  (fp2,  figh,  GH_LENGTH) ; 

/*  set  the  parameter  values  for  data  collection  */ 
pi>4 . *atan ( 1 . ) ;  /*  the  value  of  pi  */ 

iiaode  ■>  0;  /*  0>display  interferograro  ;  l>display  spectrum  */ 

istps  *•  1;  /•  the  starting  point  to  display  */ 

iendp  ■  400;  /*  the  ending  point  to  display  */ 

ichng  «  50;  /*  the  display  number  of  points  to  roll  screen  */ 

spoints  «  LIMIT;  /*  set  the  maximum  point  number  to  roll  screen  */ 

wscan  «  1;  /*  initialize  number  of  scans  written  to  disk  */ 

inode  «  0;  /*  determines  status  of  disk  file  */ 

bkgr  «  1;  /*  set  the  background  flag  to  collect  */ 

scan  >  -1;  /*  initialize  the  scan  data  collection  value  */ 

igain  ■  -I;  /*  have  the  gain  initialize  to  initial  value  */ 

/*  This  is  the  main  loop  for  data  collection  to  proceed  */ 

/*  initialize  the  interferometer  with  scanning  parameters  */ 
index  •  MidAqInit(  -1,  -1,  igain,  PLXMXT); 
if  (index) 

{ 

_setvideomode  (_DEFAULTMODE) ; 

printf ("Error z  NidAqInit  returned  %d\n”,  index); 
exit  (2); 

) 

/*  printf ("MidCol  initialized: \n" ) ; 
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printf("  DMA  Buffer  at  %Fp  «  %061X\n",  MidGbl.DmaBuffer, 
PtrToLong(MidGbl.OnaBuffer) ) ;  */ 


/*** . ************ . ******************************* . ******/ 

/*  check  the  scan  rate  and  atore  value  in  the  header  buffer  */ 
to  >  (unsigned  long)clock( ) ; 

MidAqStartScan( ) ; 
while  ( IMidGbl.OmaOone) 

{ 

tl  >  (unsigned  long)  clock(); 

if  ((tl-tO)  >  (unsigned  long)  (TIMEOUT  *  CLOCKS  PBR_SBC)) 

{ 

_setvideoinode  (_DEFAULTMODE ) ; 

printf ( "mmm>  ERROR  -  no  signal  from  interferometer  ; 

exit  (2); 

> 

} 

MidGbl.DmeUVctive  *  0; 

speed  ■  1.0/((float) (tl-tO)/(float)CLOCKS_PER_SEC); 

mirror  >  0.2S  *  speed; 

gh.acan_speed  »  speed; 

gh. mirror  velocity  «  mirror; 

/* . 7******************************************** . ********/ 

/* . ************** . ********** . . 

/*  check  the  instrument  gain  — -  if  too  low,  then  increase  gain 

if  too  high,  then  decrease  gain  */ 

/*  igain++; 

MidAqStartScan( ) ; 

to  «  (unsigned  long)clock( ) ; 

while  (1 MidGbl . DmaDone ) 

{ 

tl  «  (unsigned  long)clock( ) ; 

if  ((tl-tO)  >  (unsigned  long)  (TIMEOUT  *  CLOCKS_PER_SEC) ) 

{ 

_setvideomode  (_DEFAULTMOOE) ; 

printf ("Error:  Timeout  on  DMA  completion\n" ) ; 

exit  (2); 

) 

} 

MidGbl. DmaActive  ■■  0; 

for  (index^O;  index  <  LlMIT-1;  index-^-:-) 

raw_buf [index'fl]  ■  (float)  MidGbl.DmaBuffer[ index] ; 

burst  «  fburst(raw_buf, LIMIT-1); 

while (fabs( raw  buf (burst])  <>  16384.  &&  igain  <-  7) 

{ 

raw_buf [burst]  2.; 
igain  -*->1; 

) 

HidAqSetGain( igain) ; 

printf ("....  setting  the  instrument  A/D  gain  to  *  %d", igain); 
MidAqStartScan( ) ; 
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to  >  (unsigned  long)clock( ) ; 
while  ( iMidGbl.DmaOone) 

{ 

tl  «  (unsigned  long)clock( ) ; 

if  ((tl-tO)  >  (unsigned  long)  (TIMEOUT  *  CLOCKS_PER_SEC) ) 

{ 

_^setvideoinode  (_DEFAULTKOOE )  t 

printf(  "Error i  Tineout  on  DMA  cainpletion\n" ) ; 

exit  (2); 

> 

} 

MidGbl.DfflsActive  >0;  */ 

/ . . . ******** . / 


/*  loop  to  collect  interferogram  date  */ 

tloop: 

scan-»"i-; 

/*  read  in  the  interferogram  data  from  the  interferometer  */ 
MidAqStartScan( ) ; 
to  «  (unsigned  long)  clock(); 
while  ( 1 MidGbl . DmaOone ) 

{ 

tl  •  (unsigned  long)  clock(); 

if  ((tl-tO)  >  (unsigned  long)  (TIMEOUT  *  CLOCKS  PER_SEC)) 
{ 

^setvideomode  (_DEFAULTMODE) ; 

printf ("Error:  Timeout  on  DMA  completion\n") ; 

exit  (2); 

) 


/* - - - - - select  user  mode  — - */ 

if  (kbhit()  0)  /*  check  to  see  if  a  key  was  pressed  */ 

{ 

ch-getch( ) ; 

if  (ch  ■»  FEND)  /•  exit  program  */ 

{ 

if  (inode  1)  /*  if  writing  to  disk  update  global  header  */ 
( 

Iseek  (fp2,  OL,  0);  /*  rewind  the  file  to  write  header  */ 
gh.stop_scan  «  wscan  ^  1|  /*  insert  the  number  of  scans  in 

header  */ 

^strtime  (itime);  /*  input  the  ending  time  into  header  */ 
memcpy  (6gh.stop_time,  Gitioie,  icount2); 
write  (fp2,  &gh,  GH_LENGTH) ;/*  write  global  header  */ 
close  ( f p2 ) ; 

} 

_setvideomode  ( __DEFAULTMODE )  ; 
exit(l)i 
) 

if  (ch  »  FRIGHT)  /*  expand  screen  display  */ 
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{ 

iendp  «  i«ndp  -  Ichng; 
latps  >  Istps  -f  ichng; 
if  (latps  >*  Iendp) 

{ 

istpa  ■  latps  -  Ichng; 

Iendp  «  Iendp  *  Ichng; 

} 

} 

If  (ch  B*  FLEFT)/*  contract  the  screen  display  */ 

{ 

Iendp  B  Iendp  *  Ichng; 

Istps  B  latps  -  Ichng; 

If  (Istps  <  1  )  Istps  B 

If  (Iendp  >  spolnts)  Iendp  b  spolnts; 

} 

If  (ch  B«  ROLLR)  /*  roll  the  data  to  the  right  */ 
{ 

Iendp  B  Iendp  -  Ichng; 

Istps  •  Istps  '  Ichng; 

If  (Istps  <  1  ) 

{ 

Istps  B  1; 

Iendp  B  Iendp  -f  Ichng; 

> 

) 

If  (ch  B«  ROLLL)  /*  roll  the  data  to  the  left  */ 

{ 

Iendp  B  Iendp  *  Ichng; 

Istps  «  Istps  +  Ichng; 

If  (Iendp  >  spolnts) 

{ 

Iendp  «  spolnts; 

Istps  B  spolnts  -  Ichng; 

> 

} 

If  (ch  Ba  FINT)/*  display  Interferogram  */ 

{ 

ImodSBO ; 

Istps  B  1; 
iendp  B  400; 
spolnts  B  LIMIT; 

/*  setb)ccolor  (  BLUE);  */ 

} 

If  (ch  B.  FSPEC)/*  display  spectrum  */ 

{ 

ImodeBi; 

Istps  B  1; 

Iendp  B  512; 
spolntSB  Iendp; 

/*  setbkcolor  (  BLUE);  */ 

> 
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If  (ch  •*  FSCOL)  /*  met  disk  dsts  collsctlon  turned  on  */ 

{ 

inode  •2; 
inode  >  1; 

/*  _Betbkcolor  (_BLACK) ;  */ 

> 

if  (ch  »  PDIFF)  /*  display  the  difference  spectrum  */ 

{ 

inode  ■  3; 
bkgr  «  1; 
istps  «  181} 
iendp  «  363; 
spoints  «  512; 

/*  setbkcolor  (_BLUE);  */ 

) 

if  (ch  —  FSBL5  li  ch  —  FSEL6  i|  ch  —  FSBL7  i|  ch  —  FSBL8) 
{ 

inode  *  3; 
bkgr  *0; 
istps  »  181; 
iendp  «  363; 
spoints  ■>  512; 

getspc  (spc_bak>  spoints «  ch); 

/*  setbkcolor  (  BLUE);  */ 

} 

if  (ch  >«  FXNT  eh  <  FLEFT) 
jndex  •  (int)  ch  •  58; 

} 

/*  return  to  check  the  keyboard  if  the  scan  is  not  finished  */ 

> 

- */ 

MidGbl.OmaActive  *  0; 

/*  convert  the  integer  array  to  an  ungain  ranged  floating  array  */ 
for  (index  *  0;  index  <  LIMIT;  index+-*') 

raw__buf (index+l]  >  (float)  MidGbl. DmaBuffer[ index ] ; 

raw_buf [0]>0.0; 
spc_buf [ 0 ] "0 . 0 ; 

/*  set  up  the  graphics  to  plot  */ 
loop  ■  loop  ^  1; 

_^setact  ivepage  ( loop) ; 

_clearscroen(_GCLEARSCREEN) ; 

_Betvieworg(0,0) ; 

'‘logoega(2,12); 

_setvieworg(64,175) ; 

/*  do  the  correct  math  operation  for  each  selection  */ 

/*  display  the  interferogram  to  the  screen  */ 
if  (imode  0) 

dispint  (raw__buf,  istps,  iendp,  imode,  scan,  jndex); 
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/*  display  the  spectnun  to  the  screen  */ 
else  if  (imode  1) 

dispspec  (raw_buf,  spc_buf,  LIMIT,  istps,  iendp,  pi,  imode,  scan,  sample, 
jndex) ; 
else  if  (imode  »  2) 

< 

/*  exit  data  collection  if  too  many  interferograms  have  been  collected  */ 
if  (wscan  >  maxscan) 

{ 

laeek  (fp2,  OL,  0);  /*  rewind  the  file  header  */ 

gh.stop^scan  >  wscan  -  1;  /*  insert  the  number  of  scans  in  header  */ 
_strtiM(itime) ;  /*  get  the  ending  time  to  put  into  header  */ 
memcpy  (6gh.stop_time,  fiitime,  icount2); 

write  (fp2,  figh,  GH_LENGTH);  /*  write  the  global  header  */ 
close (fp2) j 

_setvideomode  (_DEFAtlLTMOOE)  ; 
exit (2); 

} 

/*  write  the  interferogram  to  the  disk  */ 

lastpeakBwrtint  (raw^buf,  LIMIT,  wscan,  lastpeak,  outname,  dirname, 

fp2T; 

wscan++ ; 

> 

else 

/*  write  the  difference  spectrum  to  the  screen  */ 

{ 

diffspc  (raw^buf,  spc_buf,  spc_bak,  pi,  bkgr,  imode,  istps, 
iendp,  scan,  LIMIT,  sample,  jndex); 
bkgr«0; 

} 

/*  loop  to  get  more  data  */ 

_setvlsualpage(loop) ; 
goto  tloop; 

) 

/.**.***.* 

/********* 

/*  DISPINT 

This  routine  will  display  the  interferogram  on  the  screen  for  the 
real-time  data  collect  option 

routines  called: 

draw^axis  -  draw  an  axis  to  the  screen 
plotr  -  plot  the  interferogram  on  the  screen 


void  dispint  (raw_buf,  istps,  iendp,  imode,  scan,  jndex) 
/*  The  following  global  parameters  are  : 


end  of  program  MIDCOL  *********************/ 
function  dispint  *******•*******************/ 
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raw_buf  -  the  inter ferogr am  data  points  to  display 

ifflode  -  the  plotting  mode  to  display  O«interferogram  display 

istps  -  the  starting  point  to  display 

iendp  -  the  ending  point  to  display 

scan  -  the  scan  number  of  the  interferogram 

jndex  -  the  menu  number  to  display  on  the  screen 

*/ 

float  raw_buf ( ] ; 

int  istps,  iendp,  imode,  scan,  jndex; 

void  draw__axis  ( ) ,  plotr  ( ) ; 
int  i; 

long  int  max_val>0,  min__val«0,  pktopk; 
char  buf£er[5]; 

/*  find  the  peak  to  peak  value  of  the  interferogram  */ 
for  (i  >  istps;  i  <  iendp;  i-t-t-) 

{ 

max_val  >  max  (MidGbl.OmaBuf fer( i] ,max_val) ; 
min_val  >  min  ( MidGbl . DmaBuf  f er ( i ] , min_val ) ; 

} 

pktopk  »  max_val  -  min  ^val; 

/*  plot  the  interferogram  data  to  the  screen  */ 
draw_axis  ( scan , imode ) ; 
plotr  (raw^buf,  istps,  iendp,  imode); 

_settextposition  (  2,  54); 

_outtext  ( "peak-to-peak  »  " ) ; 

_sett ext posit ion  (  2,  70); 
sprintf  (buffer, "tSld", pktopk) ; 

_outtext ( buffer ) ; 

_settextposition  (3,  2); 
sprintf  (buffer, ''%5d",max_val) ; 

_outtext (buffer) ; 

_settextposition  (23,  2); 
sprintf  (buffer, "%5d",min_val) ; 

_outtext ( buffer ) ; 

_settextpo8ition  (24,  10); 
sprintf  (buffer,"%5d'', istps); 

_outt ext (buffer) ; 

^settextposition  (24,70) ; 
sprintf  (buffer, "%5d", iendp) ; 

_out text (buffer) ; 

__nettextposit  ion  (1,2); 

_outtext("P")/ 

sprintf  (buffer,"  %ld", jndex); 
outtext  (buffer); 

>“ 

^•***************«*******0nd  of  dispint  *•**************•************/ 
/•********************^**function  dispspec  **************************/ 
I*  DISPSPEC 
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This  is  the  spectral  display  routine.  This  routine  will 
Fourier  transform  and  display  each  collected  inter ferogram. 

routines  called: 

empfft  -  Fourier  transform 

plotr  -  plot  spectrum  to  screen 

draw  axis  -  draw  the  axis  to  the  screen 


void  dispspec  (raw_buf,  spc_buf,  limit,  istps,  iendp,  pi,  imode,  scan,  sample, 
jndex) 

/*  The  following  global  variables  are: 

raw_buf  -  the  collected  interferogram  buffer 
spc_buf  -  the  fourier  transformed  spectral  buffer 
limit  -  the  number  of  points  to  transform 
istps  -  the  starting  point  to  display 
iendp  -  the  ending  point  to  display 
pi  -  the  value  of  PI 

imode  -  the  display  mode;  1  «  spectral  buffer 
scan  -  the  scan  number  to  display 
sample  -  the  sampxing  point  spacing  in  wavenumbers 
jndex  -  the  menu  option  to  display  on  the  screen 

*/ 

float  raw^bufO/  spc_buf(},  pi,  sample; 

int  istps,  iendp,  imode,  scan,  limit,  jndex; 

< 

void  empfft ( ) ,  plotr ( ) ,  draw_axis ( ) ; 

float  minx_val,  maxx_val,  miny_val  >  0.0,  maxy__^val  ■  0.0; 
int  i; 

char  buffer [6]; 

/*  do  the  fourier  transform  */ 

empfft  (raw_buf,  spc_buf,  limit,  pi); 

/*  find  the  maximum  and  minimum  values  for  the  plotted  spectrum  */ 
minx_val  ~  sample  •  (istps-1); 
maxx_val  «  sample  *  iendp; 
for  (i«  istps;  i  <  iendp;  i++) 

maxy_val  ■  max  (raw_buf(i],  maxy_val>; 

/•  plot  the  spectrxun  data  to  the  screen  •/ 
draw_axis  ( scan , imode ) ; 
plotr  (raw^buf,  istps,  iendp,  imode); 

_settextposition  (  3,  1); 
sprintf  (buffer, "%6. Of ",maxy_val) ; 

_outtext  (buffer); 

_settextposition  (  23,  1); 
sprintf  (buffer,'*%6.0f ”,miny_val) ; 

_outtext  (buffer); 

_settextposition  (  25,  5); 
sprintf  (buffer, "tS.Of ”,minx_val) ; 

_outtext  (buffer); 
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__settextpo8ition  (  25,  70)  ; 
sprintf  (buffer,  ■%6. Of", iiMUcx_val)  ; 

__outtext  (buffer)  ,- 
_settextposition  (1,2) ; 

_outtext ("F") ; 

sprintf  (buffer, "  %ld" ,  jndex) ; 
outtext  (buffer) ; 

T 

/************************0Q(l  of  diepspec  ****************************/ 
/•***********************fonction  wrtint  **♦*************************/ 
/*  WRTINT 

This  routine  will  write  an  interferogram  to  the  dislc. 
routines  called: 

errcod  -  find  the  interferogr£un  error  code 

fburst  -  find  the  interferogram  centerburst 

.  . . */ 

int  wrtint  (raw_buf,  limit,  wsczui,  la8tpe^0c,  outname,  dimame,  fp2) 

/*  The  following  global  parameters  are: 
raw_buf  '  the  interferogram  collected  on  the  Midac 
limit  •  the  nvimber  of  points  in  the  array  buffer 
wBcan  •  the  last  interferogram  nummber  written  to  dis)c 
lastpeak-  the  last  interferogram  burst  position 
outname  -  the  header  name  to  store 
dimame  -  the  directory  name  to  store  to  disk 
fp2  -  file  pointers  for  disk  I/O 
*! 

int  wsceui,  limit,  lastpeak,  fp2; 

float  raw__buf  (]  ; 

char  dimaune  []  ,  outname  []  ; 

{ 

int  errcod  0,  flsurstO; 
int  burst,  ercod; 
size_t  hdclB64,  icount2BiO; 
char  itimedO],  buffer  [4]  ; 
struct  scan_header  sh; 
struct  global_header  gh; 

/*  initialize  the  subfile  header  information  */ 

memset  (&sh,  32,  hdcl) ;  /*  initialize  the  subfile  header  buffer  */ 

burst  B  fburst  (raw_buf ,  limit) ;  /*  find  the  center  burst  */ 
if  (wscam  »  l) 
lastpeak  >  burst ; 

sh.8cam_number  -j  wscan;  /*  insert  the  scan  number  */ 

sh.peak_location  «  burst,  /*  centerburst  position  */ 

sh.gain  «  MidGbl  GainVal;  /*  interferogram  A/D  gain  */ 

sh. coadd  ■  1,-  /*  set  the  number  of  coadded  interferogrtuns  */ 

ercod  *  errcod  (raw_buf,  limit,  burst,  lastpeak); 

sh. error  *  ercod;  /*  interferogram  error  code  */ 
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lastpeak  ■  burst; 


/•  set  the  lest  peek  position 
for  the  centerburst  */ 


/*  put  the  header  name  into  the  source  filename  field  */ 
memcpy  (&sh. filename,  fioutname,  icount2); 

/*  find  the  scan  time  to  put  into  the  header  */ 

_strt ime  ( it ime ) ; 

Bierocpy  (&sh.scan_time,  (iitime,  icount2); 

/*  write  the  inter ferogram  to  disk  */ 

/*  write  the  subfile  header  information  */ 

%n:ite  (fp2,  6sh,  SH_LENGTH); 

/*  write  the  interferogram  data  to  disk  */ 
write  (fp2,  MidGbl.DmaBuffer,  limit*2); 

/*  display  the  information  the  the  screen  */ 

_settextposition(  12,  20); 

~Outtext( "COLLECTING  INTERFEROGRAM  DATA  TO  DISK"); 

_settextposition(  14,  20); 

_outtext( "filename  «  "); 

_settextposition(  14,  32); 

__outtext  ( dir  name ) ; 

__settextposition(  16,  20); 

__outtext ("interferogram  number  *  "); 

_settextposition(  16,  44); 
sprintf  (buffer,  "%04d",  wscan); 

_^outtext  (buffer ) ; 

^settextposition  (  18,  20); 

_outtoxt ( "error  code  ■  " ) ; 

__settextposition  (  18,  33); 
sprintf  (buffer,  "%01d",  ercod); 

_outtext  (buffer); 
return (lastpeak) ; 

} 

y************************end  of  wrtint  •*****************************/ 
y************************f unction  diffspc  •**************************/ 
/•  DIFFSPC 

This  routine  will  display  a  difference  spectrum  to  the  screen, 
routines  called: 

cmpfft  -  Fourier  transform 

normal  -  normalize  a  spectral  buffer 

plotr  -  plot  a  spectral  buffer  to  the  screen 

draw_axis  -  plot  the  axis  labels  to  the  screen 

- */ 

void  diffspc  (raw_buf,  spc_buf,  spc_bak,  pi,  bkgr,  imode,  sstart, 
send,  scan,  limit,  sample,  jndex) 

/*  The  following  parameters  are: 

raw_buf  -  real  array  of  interferogram  values 
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•pc_buf 

■pc_bak 

pi 

bkgr 

Imode 

■■tart 

•end 

limit 

•ample 

jndex 


real  array  of  spectral  values 

real  array  of  spectral  background  values 

the  value  of  pi 

the  background  computation  switch 
the  data  display  mode 

the  starting  point  to  plot  the  difference  spectrum 

the  ending  point  to  plot  the  difference  spectrum 

the  interferogram  array  sice 

the  sampling  point  increment  (wavenumbers) 

the  menu  option  number  to  display  on  the  screen 


float  raw_buf[],  Bpc__buf[],  spc_bak(]f  pi«  sample; 

Int  bkgr,  imode,  astart,  send,  scan,  limit,  jndex; 

void  cmpfftO,  normalO,  plotr(),  draw_axia(); 
float  minx_val,  maxx_val,  miny__val*0.0,  maxy_valBO.O; 
int  index; 
char  buffer (6); 


if  (bkgr  --  1) 

{ 

cmpfft  (raw^buf,  epc_buf,  limit,  pi); 

I*  normal  (raw_buf,  spoints);  */ 

for  (index«l;  index  <»  limit/2;  index-*-*-) 

•pc_bak( index- 1]  »  raw^buf (index) ; 

> 

else 

{ 

cmpfft  (raw_buf,  spc_buf,  limit,  pi); 

/*  normal  (raw_buf,  spoints);  */ 

for  (index*  sstart;  index  <  send;  index-*-*-) 

{ 

raw_buf ( index ] *raw_buf ( index ] -•pc_bak [ index-1 ] ; 
miny_val  ■  min  (raw_buf( index] ,  miny_val); 
maxy_val  *  max  (raw_buf (index) ,  maxy_val); 

} 

draw_axis(  scan,  imode); 

plotr  (raw__buf,  sstart,  send,  imode); 

/*  annotate  the  screen  with  the  display  ranges  */ 
minx_val  •  sample  *  (sstart-l); 
maxx_val  ■  sample  *  send; 

_settextpoBltion  (  3,  1); 

•printf  (buffer, "%6. Of", aMxy^val); 

_outtext  (buffer); 

^•ettextposition  (  23,  1); 

•printf  (buffer, "%6.0f ",miny__val) ; 

_outtext  (buffer); 

_settextposition  (  25,  5); 

•printf  (buf fer, ”%6.0f " ,minx^val) ; 

_outtext  (buffer); 
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^■ettextposition  (  25,  70); 

■printf  (buffer, "%6. Of ",maxx_v»I) ; 

_outtext  (buffer ) ; 

_Bettextposltion  (  1,  2); 

_outtext ( "F" ) ; 

sprlntf  (buffer,"  %ld",  jndex); 

_outtext  (buffer) ; 

} 

} 

/************************end  of  diffspc  *****************************/ 
/************************f unction  empfft  ****************************/ 
/*  CMPFPT 

This  routine  will  Fourier  transform  an  inter ferogram.  The  program 
will  rotate  the  interferogram  and  transform.  No  phase  correction 
or  apodisation  is  done.  This  routine  is  to  be  only  used  for 
real-time  display  where  phase  and  apodisation  functions  are  not 
absolutely  required.  Do  not  use  this  routine  for  data  analysis. 

routines  called: 

rotate  -  rotates  an  interferogram  buffer 

burst  -  finds  the  centerburst  of  an  interferogram 

rfft  -  calculates  the  Fourier  transformation 


- */ 

void  empfft  (raw_buf,  spe_buf,  ipoints,  pi) 

/*  The  following  global  parameters  are: 

raw_buf  -  a  wor)(  array  used  for  transformation 

spe^buf  -  an  array  containing  the  complex  values  of  the  transformation 
Ipoints  -  number  of  points  in  interferogram  array 
pi  -  value  of  pi 

V 

float  raw_buf(],  spc_buf(],  pi; 
int  ipoints; 

< 

/*  The  following  local  parameters  are: 
i,j, index  -  indexing  variables 

burst  -  value  containing  the  index  of  the  interferogram  centerburst 

*/ 

void  rf ft ( ) , rotate ( ) ; 

int  fbursto; 

int  i,  j,  index,  burst; 

for  (i*l;  i  <■  ipoints;  i++) 
spc_buf(i]  a>  raw_buf[i]; 

/*  find  the  center  burst  of  the  Interferogram  */ 

/*  printf  ("to  burst\n");  */ 

/*  printf  ("raw^buf (50]»  %10.5f\n",raw_buf [50] ) ;  */ 
burstvf burst ( spc_buf , ipoints ) ; 

/*  printf  ("after  burst\n");  */ 
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/*  rotate  the  interferogram  for  the  FFT  */ 

/•  prlntf  ("to  rotate\n");  */ 

rotate(burat,  Bpc_buf,  raw__buf,  ipoints); 

/•  prlntf  ("after  rotate\n");  */ 

/*  Fourier  transform  the  interferogram  */ 

/*  prlntf  ("to  rfft\n");  */ 

for  (i“l,  j«lj  j  <■  Ipoints;  1+-2,  j++) 

spc_buf[l]  ■  raw_buf(jl; 
spc_buf  [ l-fl ]  «  0.0; 

/*  prlntf  ("spc_buf [%04d]«%10.5f\n",i,spc_buf (1] ) ;*/ 

/*  prlntf  ("8pc3uf[*04dl«%10.5f\n",i+l,spc_buf(l+lJ);  */ 

) 

rfft (spc_buf ,  Ipoints,  pi); 

/*  prlntf  ("after  rfft\n");  */ 

/*  compute  the  power  spectrum  */ 

/*  prlntf  ("to  power  spectrum  calculatlon\n" ) ;  */ 
for  (  1=1,  j*0  ;  1  <«  Ipoints  ;  i+«2,  j++) 

{ 

raw_buf ( j ]*  sqrt(spc__buf (il*spc_buf (ij+spc_buf (i+l]*spc_buf [1+1] ) ; 
/*  prlntf  ("raw_buf (%04d]=%10,5f\n", j,raw_buf [ jj);  */ 

> 

/•  prlntf  ("after  power  spectrum  caIculatlon\n" ) ;  */ 

} 

/**•«*****«*******•*****  of  CMPFFT  A*****************************/ 
y***«A****«*************  function  rfft  *»**i>*************************/ 
t*  RFFT 

This  routine  will  compute  the  Fourier  transform  using  the  method 
originally  written  by  N.  Brenner  of  Lincoln  Laboratories 

routines  called: 

NONE 


- - - */ 

void  rfft  (spc_buf,  Ipoints,  pi) 

/•  The  following  global  parameters  are: 

spc_buf  •*  the  interferogram  values  stored  In  complex  form 
Ipoints  -  number  of  points  In  Interferogram 
pi  ->  value  of  pi 

*/ 

float  spc_buf[},  pi; 

Int  Ipoints; 

{ 

Int  1,  n,  Istep,  j,  mmax,  m; 

float  wsln,  theta,  tempr,  tempi,  wr,  wl,  wtemp,  wpr,  wpl; 
n«  2  *  Ipoints; 

j-1; 
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/*  bit  rttveraal  sactlon  */ 
for  (i>l;  i  <»  n  ;  i+“2) 

{ 

(j  >  i) 

< 

/*  Not*:  several  statenents  have  been  coomented  out  for 
where  Input  imaginary  values  are  always  zero, 
not  true,  then  these  statements  must  be  used. 

*/ 

tempr  ■  spc_buf[j]; 

/*  tempi  «  apc__bu£(  j+lj;  */ 

spc_buf [ j ]  ■  spc_bu£ ( i ] ; 

I*  *pc_buf(j+l]  «  apc_buf  [i-t-l] ;  */ 

spc_buf[i]  «  tempr; 

/*  spc  buf(i+l]  ■  tempi;  */ 

> 

XD^n/2 ; 

while  (m>a26£j>ffi) 

{ 

j»j-m; 
msm/2 ; 

} 

j«j+m; 


/*  compute  the  butterflies  */ 
mmaxs2; 

while  (  n  >  mmax  ) 

{ 

istepa  2  *  mmax; 
theta  >  2.0  *  pi  /(float)mmax; 
wsin  >  sin(0.5  *  theta); 
t«pr  «  -2.0*w8in*wsin; 

%«pi  «  sin  (theta); 
wr  -  1.0; 
wi  ■  0.0; 

for  (m«l;  m  <*  mmax;  m-f>2) 
t 

for  (i<mi;  i  <■  n;  i^i-^istep) 
i 

j*>i+mmax; 

tempr  ■  wr*spc_buf ( j ]  -  wi*spc_buf ( j+1] ; 
tempi  ■  wr*spc_bu£( j+1 J  +  wi*spc_buf ( j J ; 
spc__buf(j]  ■  opc_buf[i)  -  tempr; 
spc_buf(j+l)  «  spc_buf [i-fl)  -  tempi; 
spc_buf(i]  ■  apc_buf(i]  tempr; 
spc_buf[i-M]  "  spc  buffi+l]  tempi; 

) 

wrtemp  ■  wr; 

wr  ■  wr*wpr  -  wi*wpi  +  wr; 
wi  ■  wi*wpr  ♦  wtemp*vnpi  +  wi; 


the  case 
If  this  is 
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} 

ninax*iatep; 

} 

} 

/*•*********************  md  of  RFFT  **********************•***•*****/ 
^***«*******************  function  fburat  *•***•****•*******•*********/ 
/*  FBURST 

Thi«  routine  will  find  the  center  buret  of  an  interferogram  array. 
The  routine  is  a  function  call  as  the  burst  value  is  returned. 

routines  called: 

NONE 

- ./ 

int  f burst ( raw_buf , ipoints ) 

/*  The  following  global  parameters  are: 

raw_buf  -  the  interferogram  array 

ipoints  ~  the  number  of  points  in  interferogram 

*/ 

float  raw_buf ( ] ; 
int  ipoints; 

int  i,max_loc,  min^loc; 
float  max_val>0.0,  min_val«0.0; 

/*  printf  ("ipoints  in  fburst*  %04d\n", ipoints ) ; 
print f  (■raw_buf (50]»  %10.5f\n",raw_bu£(50I) ;*/ 
for  (i«l;i  <«  ipoints;  i-^-^') 
if  (raw^buf[i]  >  max_^val) 

{ 

max_val«raw_bu£ ( i J ; 
max_^loc  >  i; 

/*  printf ("max  loc«  %04d\n",max_loc);  */ 

} 

else  if  (raw_buf(i]  <  min_val) 

min_val  ■  raw_buf[i); 
min^loc  i; 

/*  printf  ("min  loc*  %04d\n",min_loc) ;  */ 

} 

if  (fabs( (double)  min_val)  >  BMx_val) 
return  ( min_loc ) ; 

else 

return  (oiax  loc); 

> 

/************•***•**•***  und  of  FBURST  ****•***•*********************/ 
/•*•*******••••••****•**  function  normal  •••••*******••**••*****•****/ 

/*  NORMAL 

This  routine  is  used  to  normalize  the  spectral  buffer. 
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routines  celled: 
NONE 


void  normal  (buffer,  ipoints) 
float  buffer! ] t 
{ 

int  index; 
float  esq  «  0.0; 

for  (index  >0;  index  <  ipoints;  index-f-f) 
ssq  *•  buffer [index]  *  buffer [ index ) ; 

if  (ssq  >  0.0) 

ssq  *  ipoints  /  sqrt  (ssq); 

else 

ssq  ■  1.0; 


/ 

/ 


This  routine  will  rotate  an  interferogram  buffer.  The  buffer  will 
be  rotated  so  that  the  center  burst  is  in  array  position  1. 

routines  called: 

NONE 


void  rotate  (burst,  raw_buf,  spc_buf,  ipoints) 

/*  The  following  parameters  are: 

raw_buf  -  the  input  interferogram  buffer 

spc_buf  -  the  rotated  interferogram  buffer 

burst  -  the  interferogram  center  burst  array  position 

ipoints  -  number  of  interferogram  points  is  arrays 

V 

float  raw_buf [ ] ,  spc_buf ( ] ; 
int  ipoints,  burst; 

{ 

int  oindex,  nindex; 

for  (oindex^burst,  nindex*!;  oindex  <*  ipoints;  oindex-t-t-,  nindex4-+) 
spc_buf [nindex]  *  raw_buf [oindex] ; 

/*  nindex-*!;  */ 

for  (oindex*!;  oindex  <  burst;  oindex-*"!- ) 

{ 

spc_buf [nindex]  *  raw_buf [oindex] ; 
nindex-*- -f; 

> 


for  (index  *  0;  index  <  ipoints;  index-*-*-) 
buffer] index]  **  esq; 


> 

/*•***•*****************  end  of  normal  * 
/***••****•*******•*****  function  rotate 


/*  ROTATE 
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} 


•nd  of  ROTATE  ****> 
function  draw  «xi« 


/ 

/ 


/•***•**•*** 

/**♦**•*•*** 

/•  DRAW_AXIS 

This  routins  will  drsw  ths  sxis  for  oithar  sn  intsrforogram  or 
spsctrum  display. 

routines  called: 

Microsoft  C  graphics  display  routines 


void  draw_axis  (scan, inode) 

/*  The  following  parameters  are: 
scan  ■>  the  scan  number 

imode  -  display  mode  type;  O«interferogram,  1-spectrum 

*/ 

int  scan,  imode; 

{ 

int  i,  ih; 
char  buffer[80]; 

if  (imode  —  1) 
ih  -  ISO; 

else 

ih  -  0; 

moveto  (0,  ih-t-O);  /*  Print  the  X  axis  */ 

“lineto  (S12,  ih+0); 

_moveto  (0,150);  /*  Print  the  Y  axis  */ 

_lineto  (0,-150); 

for(i  -  0;  i  <-  512;  i  64)  /•Print  the  X  axis  tick  marks  */ 

< 

_moveto ( i ,  ih+S ) ; 

_lineto(i,  ih+O); 

} 

for(i  -0;  i  <-  512;  i  32) 

{ 

_BK>veto(i,  ih-t-3); 
lineto(i,  ih-t-O); 

> 

for(i  -  0;  i  <-  512;  i  +-  16) 

{ 

jmoveto(i,  ih-t'2); 

_lineto(i,  ih+0); 

> 

/*  for(i  «  150;  i  >  -150;  i  —  25)  Print  the  Y  axis  tick  marks 
{ 
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_iiioveto(-4,  i+1); 

lln«to(0,  i+1); 

>  */ 

/•  Label  the  axis  */ 

_settextpoaitlon(2S,36);  f*  x  AXIS  */ 

_outtext  ("  SCaui  #  "); 

sprintf (buffer, -%05d-,acan) ; 

_Bett ext pos it ion ( 2 5 , 4 S ) ; 
jouttext  (buffer); 
if  (imode  3) 

< 

_aattextpoBition  (25,  8); 

_outtext  ( "700" ) ; 

^BettextpoBition  (25,  70); 
outtext  ( "1400" ) ; 

>  “ 

_Bettextpo8ition(9,5) ;  /+  y  axis  */ 

_outtext  ( "A" ) ; 

_BettextpoBition (10,5); 

_outtext  ("/"); 

_Bettextposition(ll,5) ; 

_outtext  ("D"); 

_BettextpoBit ion (13,5); 

_outtext  ("u"); 

_BettextpoBit ion (14,5); 

_outtext  ("n"); 

_Bet text posit ion (15, 5) ; 

__outtext  ("i"); 

_BettextpoBition(16,5) ; 

_outtext  ("t"); 

_BettextpoBition(17,5) ; 

_outtext  ("8"); 


} 

/****************,****,***,*  DRAW_AXIS  ************************** 

/****••**•«•**•••«««*«««•*««  function  logoega  ************************** 
/*  logoega  is  a  function  used  to  create  the  CBDA  logo  for  EGA  graphics. 
The  funtion  requires  two  parameters,  the  x  and  y  coordinates  for  the 
first  letter  "C".  if  the  logo  coordinates  are  outside  the  exceptable 
range,  no  logo  will  be  plotted. 

author:  John  Ditillo 
modified  by:  Bob  Kroutil 

logoega  is  based  on  the  "old"  CRDEC  logo  routine 
Witten  by  John  T.  Ditillo 

dat'j:  October  1992  •/ 


void  logoega (y,x) 
Appendix  D 


77 


int  y,  x; 


{ 

int  xp,  yp; 

if  (y<23  &  y>l  6  x<76  fi  x>2) 

{ 

/*  draw  the  logo  •/ 
_settextposition(y,x) ; 

^outtext  ( "C" ) ; 

__eet  text  posit  ion  (y+l,x-l) ; 

3»«ttext  ("B  D-); 

_settextpoBit ion ( y*2 , x ) ; 

_outtext  ( "A" ) ; 

/*  Calculate  first  pixel  location  */ 

yp  B  y  •  14  -  16; 

xp*x*8-5; 

/*  first  benzene  */ 

_inoveto(xp,yp) ; 

”l ineto ( xp-8 , yp+3 ) ; 

_1 inet o ( xp-8 , yp+ 1 3 ) ; 
__lineto(xp,yp+17) ; 
_^lineto(xp+8,yp+13) ; 

_1 inet o ( xp+8 , yp+ 3 ) ; 

_lineto(xp,yp) ; 

/*  second  benzene  */ 

__Bioveto (xp-8 , yp+13 )  ; 
_lineto(xp-16,yp+17) ; 

__1  ineto  ( xp- 1 6 ,  yp+2  7 ) ; 
_lineto(xp-8,yp+31) ; 

_1 inet o ( xp , yp+2  7  > ; 

_lineto(xp,yp+17) ; 

/*  third  benzene  •/ 

_B>oveto  ( xp+8 ,  yp+ 1 3 ) ; 
_lineto(xp+16,yp+17) ; 
”lineto(xp+16,yp+27> ; 
_lineto(xp+8,yp+31) ; 
_lineto(xp,yp+27) ; 

/*  fourth  benzene  */ 

^BKJveto  ( xp-8 ,  yp+31 ) ; 

__1  ineto  ( xp-8 ,  yp+42 ) ; 
_lineto(xp,yp+45) ; 

__1  ineto  ( xp+8 ,  yp+42 ) ; 

1 ineto ( xp+8, yp+31) ; 
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> 


/ 

/ 


This  routine  is  used  to  scale  and  display  the  interferogram  or 
spectrum. 

routines  called: 

Microsoft  C  graphics  routines 

- ./ 

void  plotr  (buf,  istps,  iendp,  imode) 

/*  The  following  parameters  are: 

buf  -  the  array  buffer  to  plot 
istps  -  the  starting  point  to  display 
iendp  -  the  ending  point  to  display 

imode  -  the  display  mode  (0* interferogram,  l*spectrum) 

*1 

float  buf [ ] t 

int  istps,  iendp,  imode; 

{ 

int  index,  x,  y,  ih,  ip; 
float  max,  xscale,  yscale; 

/*  number  of  points  to  plot  */ 
ip  *  iendp  •  istps; 

/*  find  the  largest  value  */ 

for  (index>istpe,  max«0.0;  index  <  iendp;  index-f-*-) 

{ 

if  ( (fabs( (double ) buf [index] ) )  >  max) 

max  >  (float)  (fab8( (double ) buf [index] )) ; 

} 

/*  Calculate  the  scaling  factor  */ 
xscale  -  512.0/ip; 
if  (imode  ■■  1) 

{ 

yscale  >  300.0/max; 
ih  -  150; 

> 

else 

{ 

yscale  -  150.0/max; 
ih  *  0; 

) 

/*  plot  the  data  */ 

__moveto  (0,  (int)  -(buf [istps]  *  yscale  -  ih)); 


> 

/***********************  end  of  LOGOEGA 
/***********************  function  plotr 


/*  PLOTR 
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for  (index>l;  index  <  ip;  index>-t-) 

{ 

X  B  (int)  index  *  xecale; 

y  »  (int)  -(buf [index-t-istpe]  •  yecale  -  ih); 
_lineto  (x,y); 

} 


) 

/********««**************•**  end  of  PLOTR  ******•********************/ 
/**********•*•********  function  getspc  ***••*************************/ 
/*  getspc 


This  routine  will  get  up  to  4  black  body  spectra  on  the  disk  and 
read  them  into  an  array.  The  stored  spectra  are  SpectraCalc 
floating  point  binary  format  (FSP  format  -  use  the  input  and 
output  commands  in  SpectraCalc). 

routines  called: 

NONE 


- */ 

void  getspc  (spc_bak,  ipts,  ch) 

/*  The  following  parameters  are: 

spc_bak  -  the  array  that  contains  the  stored  disk  spectral  responses 
ipts  >  the  number  of  points  in  the  array 
ch  -  a  flag  to  tell  which  spectrum  file  to  read 

*/ 

float  spc_bak(]; 
int  ipts; 
char  ch; 

{ 

int  fp3; 

float  numpts,  firstx,  lastx,  xunits,  yunits,  res; 
char  afile(20]; 

/*  load  the  black  body  spectra  •/ 

if  (ch  —  FSEL5) 

strcpy  (afile,"f5.fsp"); 
if  (Ch  »  FSEL6) 

strcpy  (afile,"f6.fsp"); 
if  (ch  --  FSEI.7) 

Strcpy  (afile,"f7.fsp"); 
if  (Ch  --  FSEL8) 

strcpy  (afile,''f8.fsp"); 

if  ((fp3  -  open  (afile,0_rJONI.YiO_BXNARY))  >«  0) 

{ 

read  (fp3,  (char  *)  Snumpts,  4); 
read  (fp3,  (char  *)  Sfirstx,  4); 
read  (fp3,  (char  *)  Slastx,  4); 
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read  (fp3,  (char  *)  fixunita,  4); 
read  (fp3,  (char  *)  fiyunita,  4); 
read  (fp3,  (char  *)  &rea,  4); 

if  (  read  (fp3,  apc_bak,  4  *  Ipta)  1«  4  *  ipta) 

printf ("\nUnable  to  read  diak  atored  black  body  flle.Xn”); 
cloae  (fp3); 

> 

elae 

_8ettextpoaition  (1,20); 

_outtext  ("M»>  ERROR  -  diak  file  .fap  doea  not  exiat  lilt  <■■»"); 

} 

} 

/*********************  and  of  getapc  **^«**************************** / 
/*«**•**********•*****  function  errcod  *•***********************•****/ 

/*  ERRCOD 

Thia  routine  will  find  out  if  the  data  haa  an  error. 

routinea  called: 

NONE 


- */ 

int  errcod  (raw_buf,  ipointa,  buret,  laatpeak) 

/*  The  following  parametera  are: 

raw_buf  -  the  real  valued  buffer  array  to  teat 

ipointa  -  number  of  pointa  in  array 

burat  -  the  array  location  of  the  center  burat 

laatpeak  -  the  laet  array  location  holding  the  previoua  center  burat 

*l 

int  burat,  laatpeak,  ipointa; 
float  raw_buf [ ) ; 

{ 

int  ercod; 

ercod  *0; 

if  (ipointa  <  1024) 
ercod  >1; 

if  ( f aba (raw_buf [burat] )  >«  32767.) 
ercod  -  2; 

if  (laatpeak  buret) 
ercod  >  3; 
if  (burat  >  SOO) 
ercod  >  4; 

if  ( f aba (raw_buf  [burat  ] )  <■>  6192.) 
ercod  >5; 

/*  printf  (''raw_data[%04d]  «  tOSd”, burat,  raw  data  [burat] ) ; 
printf  ("burat  poaltion  ■  %04d",  burat);  */ 
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/*  NOTE:  error  code  for  bit  toggle  not  yet  implemented  */ 


return  (ercod); 

} 


/* -  - */ 

/*  In:  Allow  port  input  during  debug.  */ 
/*  This  is  necessary  for  CV  4.00 — the  "I"  coontand  (port  */ 
/*  input  is  broken.  The  circumvention  is  to  include  a  */ 
/*  a  global  function  such  as  in()  below,  trace  at  least  */ 
/*  as  far  as  the  main()  function,  then  "?in(port)"  or  */ 
/*  "7in(port) ,x"  to  read  port  contents.  */ 
/* - */ 


int  in(  unsigned  port  ) 
{ 

int  i; 

i  «  inp(port); 
return  i; 

}  /*  in  */ 


/* - */ 

/*  loDelay:  I/O  delay  for  ZBM/AT  and  clones.  */ 

/*  */ 

/*  This  dummy  function  is  used  to  generate  a  few  clocks  of  del^y  */ 

/*  between  consecutive  accesses  to  certain  I/O  ports.  Basically  */ 

/*  the  call/return  sequence  is  more  than  enough.  Assembler  */ 

/*  programs  typically  use  a  "JHP  SHORT  instruction,  but  */ 

/*  the  HSC7  inline  assembler  doesn’t  seem  to  handle  the  ”$"  */ 

/*  token  very  well.  The  delay  is  necessary  on  IBM  AT  machines  */ 

/*  and  true  compatibles.  */ 

/*  */ 

/*  Needless  to  say,  allowing  this  function  to  be  inlined  would  */ 

I*  be  a  bad  idea...  */ 

/• - */ 


static  void  near  loDelay(void) 
{ 

; 

}  /*  loOelay  */ 


/* - */ 

/*  GetDmaBuffer:  Allocate  a  byte-DMA  compatible  buffer  */ 

/*  */ 

/*  A  byte  DMA  buffer  cannot  cross  a  64K-byte  absolute  address  •/ 

/*  boundary.  */ 

/•  */ 

/*  Returns  pointer  to  buffer  if  successful,  NXn.L  otherwise.  */ 

/• - */ 


void  far  *GetDraaBuffer(long  Size) 
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{ 

#define  MaxTries  16  /*  Maximum  attempts  before  failure  */ 

void  far  *failed [MaxTries ] , 

far  *try, 
far  •retry; 

unsigned  begoff,  endoff; 

Int  i,  nfail>0; 

if  (Size>MAXDMA  | |  Size<-0)  return  NULL; 

for  (;;)  /*  Repeat  until  explicit  break:  •/ 

{ 

try  >  malloc( (size_t)Size) ; 
if  (  tryMNULL  )  break; 

/*  Test  for  64K  block  wraparound:  */ 

begoff  =  (FP__SEG(try)  «  4)  +  PP_OFF(try); 
endoff  «  begoff  +  (unsigned) Size  -  1; 

if  (endoff  >«  begoff)  break;  /*  Success  if  all  in  1  block 

/*  Current  attempt  crosses  boundary,  retry  if  failed  list  not  full:  */ 

if  (nfail  ••  MaxTries) 

{ 

free (try); 
try  «  NULL; 
break; 

} 

/*  Resize  current  try  to  end  on  64K  absolute  boundary  and  add  it  to  •/ 
/*  the  failed  list:  */ 

retry  «  realloc(try,  l+"begoff); 
if  (  retry  I*  NULL  ) 
try  ■  retry; 
failed [nfail-«"»-]  ■  try; 

} 

/*  Arrive  here  via  explicit  break.  Free  failed  attempt  pointers,  if  */ 
/*  any  and  exit.  The  try  variable  has  been  set  to  a  pointer  on  success  •/ 
/*  or  to  NULL  on  error.  */ 

for(  i>0;  i<nfail;  -f-t-i  ) 

{ 

free(  failed[i]  ); 

> 

return  try; 

#undef  MaxTries  /•  Undefine  "local"  macros  */ 
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>  /*  GetDmaBuffer  */ 


/* - •/ 

/*  StartDma:  Start  a  DMA  operation.  */ 

/*  */ 

/*  This  is  a  cut-down  version  to  do  input  only,  specifically  */ 

/*  using  DMA  info  in  MidGbl  structure.  */ 

/• - */ 


void  StartDma (void) 

( 

long  addr  ■  PtrToLong (MidGbl. DmaBuffer); 

int  size  >  (int) MidGbl. DmaSize; 

unsigned  ch  *  2*MidGbl.DmaChannel; 

DisableDma( MidGbl. DmaChannel) ; 

ZoDelayO;  /*  Wait  a  few  CPU  clocks  */ 


outp  ( DMA_MODE ,  0x44-»^MidGbl .  DmaChannel ) ; 

/•  DMA  Mode:  single-block,  */ 
/*  increment  address,  */ 
/*  no  autoinitialize,  */ 
/*  "write  transfer"  ->  cpu  */ 


ZoDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_CLRF,0) ;  /*  Set  to  receive  LSB  first  */ 

ZoDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_^CTR'^ch,  (int)size);  /*  Send  byte  count  */ 

ZoDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_CTR-*-ch,  (int) size  »  8); 

ZoDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_ADDR-*’ch,  (int)addr);  /*  Send  address  */ 

ZoDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_ADDR-*-ch,  (int) addr  »  8); 

ZoDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp ( MidGbl. DmaPageReg,  (int)  (addr»16) )  ; 

/*  Set  page  reg  to  top  8  bits  */ 

ZoDelayO;  /*  Wait  a  few  CPU  clocks  */ 

BnableDaBa(MidGbl. DmaChannel) ;  /*  Finally,  enable  DMA  */ 

>  /*  StartDma  */ 

/• - */ 

/*  SetZrqSnable:  Set/Reset  ZRQ  enable  status  for  specified  */ 

/*  channel.  */ 

/*  V 

/*  Please  note  that  the  sense  of  the  "Enable"  argument  is  a  C-  */ 
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/*  style  boolean.  Nonzero,  or  "true",  enables  the  channel.  This  */ 

/*  is  opposite  from  the  8259  mask  register,  where  a  1  disables  */ 

/*  the  cheuinel  and  0  enables.  */ 

/*  .  */ 

void  SetIrqEnable ( 

int  IrqNumber,  /*  Interrupt  chamnel,  0-15  */ 

int  Enable)  /*  New  enable  status  for  this  cheuinel  */ 

/*  0  e  dised}le  interrupts  */ 

/*  nonzero  >  eneUsle  interrupts  */ 

{ 

unsigned  port; 


int  mask,  val; 

if  (IrqNumber  <  8) 

{ 

port  =  PIC1_MASK; 
mask  =  1  <<  IrqNumber, - 

} 

else 

{ 

port  s  P1C2_MASK; 

mask  s  1  «  (IrqNumber *8) ; 

} 

val  s  inp(port)  |  mask; 
if  (Enable)  val  mask; 
outp(port,  val) ; 

}  /*  SetIrqEn€d>le  */ 


/*  . - . . */ 

/*  MidAqStartScan :  Start  new  data  collect  operation  */ 

/*  */ 

/*  This  is  a  skeleton  of  what  is  needed  to  begin  a  new  data  */ 

/*  scan,  or  series  of  accumulated  scans,  on  the  Hidac  FT-IR.  */ 

/*  .  */ 

void  MidAqStartScan (void) 

{ 

SetIrqEnable (MidGbl . IrqNum,  0);  /*  Disable  interrupt  channel  */ 

loDelayO  ;  /*  Wait  a  few  CPD  clocks  */ 

DisableDma (MidGbl. DmaCh«uinel)  ;  /*  Disable  DMA  cluuinel  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 

StartDmaO;  /*  Start  DMA  cheuuiel  */ 

SetIrqEnable  (MidGbl.  Irc^um,  1);  /*  Enable  intemqjt  channel  */ 

/*  Set  gain  and  retrace  interferometer:  */ 


/*  Primary  8259  port  */ 


/*  Secondary  8259  port  */ 


/*  Set  to  mask  disable  */ 
/*  Set  to  enable  if  requested  */ 
/*  Update  port  */ 
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CmdOut{  MidGbl.GainPort  |  MIDC_EOS  |  MIDC_IRQ  ); 

/*  Start  IRQ  clear  pulse*/ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks*/ 

CmdOut(  CmdInO  &~(MIDC_EOS  +  MIDC_IRQ)  );  /*  End  IRQ  clear  pulse,  */ 

/*  Start  retrace  pulse  */ 


loDelayO  ; 

while  (inp  (MID_STAT)  &  MIDS_FLyBK)  ; 
CmdOutC  CmdInO  j  (MIDC_EOS~+  MIDC_IRQ) )  ; 
loDelayO  ; 


/*  Wait  a  few  CPU  clocks*/ 
/*  Wait  for  turnaround  */ 
/*  End  retrace  pulse  */ 
/*  Wait  a  few  CPU  clocks*/ 


/*  Note:  May  need  to  insert  delay  here,  10-20ms,  to  allow  for  */ 

/*  hardware  bug  in  Midac  interface  causing  early  DMA  requests.  */ 

_asm  xor  cx, cx 
here:  _asm  loop  here 

MidGbl.DmaActive  =1;  /*  Set  global  DMA  status  flags  */ 

MidGbl .DmaDone  =  0; 

OmdOut(  CmdInO  j  MIDC_DMA  )  ;  /*  Enable  DMA  at  interface  */ 


}  /*  MidAqStartSc2ui  */ 


/*  . 

/*  MidAqDmaDone :  Interrupt  Handler  for  DMA  ccrrpletion 

/* 

/*  This  version  singly  notes  DMA  ccn^letion,  retraces  the 

/*  interferometer,  and  disaUbles  DMA  at  both  the  8237  and  at 

/*  the  Midac  interface  board.  This  would  be  the  natural  place 

/*  to  insert  co*add  logic  for  averaging  interf erograms . 

/•  . 


void  _cdecl  interrupt  far  MidAqDmaDone (void) 

{ 

MidGbl  .DmaDone  si;  /*  Note  DMA  conpletion 


CindOut(  CmdInO  A-MIDC^DMA  )  ; 
DisableDma (MidGbl. DmaChannel) ; 
loDelay ( } ; 


/*  Disable  DMA  at  interface 
/*  then  disable  cheuinel 
/*  Wait  a  few  CPU  clocks 


/*  Retrace  interferometer: 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


*/ 

*/ 

*/ 

*/ 

*/ 


ClBidOut(  OndlnO  |  (MIDC_EOS  +  MIDC_IRQ)  )  ; 
CindOut(  CmdInO  ^-(MIDcIeoS  +  MIDC_IRQ)  ); 

/*  Start  retrace  pulse  */ 

_enable  0  ; 

lAile  (ii^>(MID_STAT)  4  MIDS_FLYBK)  ; 

QndOut(  OtndInO  |  (M1DC_B0S  •«-  MIDC.IRQ) )  ; 


/*  Start  IRQ  clear  pulse*/ 
/*  End  IRQ  clear  pulse,  */ 

/*  Interrupts  on  now  */ 
/*  Wait  for  turnaround  */ 
/*  End  retrace  pulse  */ 


/*  This  is  the  place  to  put  co^add  logic  and  possibly  start  the  */ 
/*  lElA  controller  for  a  new  scan.  Note  that  the  instrument  will  */ 
/*  scan  anyway- -the  decision  is  whether  or  not  to  collect  the  data.  */ 
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/*  Note:  May  need  to  insert  delay. 

10 -20ms,  to  allow  for 

*/ 

/*  hardware  bug  in  Midac  interface. 

if  another  scan  is  to  bo 

*/ 

/*  started  here. 

*/ 

OUtp(PICl_CMD,  PICC_EOI) ; 

/*  Issue  EOI  to  master 

*/ 

loDelayO  ; 

/*  Wait  a  few  CPU  clocks 

*/ 

if  (MidGbl .  IrqNiim  >  7) 

/*  If  interrupt  is  on  slave 

*/ 

outp (PIC2_CMD,  PICC_E01) ;  /*  then  issue  secondary  BOl 


outp (PIC2_CMD,  PICC_E01) ;  /*  then  issue  secondary  EOl 

}  /*  MidAqDmaDone  */ 

/*  .  */ 

/*  MidAqSetGain :  Set  Signal  Gain  */ 

/*  */ 

/*  . - .  */ 

int  MidAqSetGain (int  SignalGain) 

{ 

int  gainport  =  { (-SignalGain  «  MIDCjGSHIFT)  &  MIDC_GMASK) ; 
int  oldgain  s  MidGbl . GainVal ; 


if  (SignalGain<0  | |  SignalGain>7) 
return  -1; 

CandOut  (gainport  |  (CmdInO  &  -MIDC_GMASK) )  ; 
MidGbl .GainVal  »  SignalGain; 

MidGbl .GainPort  *  gainport; 
return  oldgain; 

}  /*  MidAqSetGain  */ 


/*  .  */ 

/*  */ 

/*  MidAgTerm:  Data  collect  termination  */ 

/*  */ 

/*  This  function  is  not  e^qplicitly  called,  but  is  called  at  */ 

/*  program  termination  via  the  atexitO  facility.  The  primary  */ 

/*  task  is  to  diseUble  DMA  and  the  terminal  count  interrupt  and  */ 

/*  restore  the  IRQ  vector.  */ 

/* .  */ 

void  MidAqTerm (void) 

{ 

SetIrqEnable  (MidGbl  .IrqNxim,  0);  /*  Disable  interrupt  channel  */ 


DisableDma (MidGbl. DmaChannel) ;  /*  Disable  DMA  channel  */ 
QndOut  (M1DC_E0S)  ;  /*  Reset  the  interferometer  *•/ 
loDelayO  ;  /*  Wait  a  few  CPD  clocks  */ 

if  (MidGbl. OldIrqVec  '..NULL) 
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{ 


_d08_setvect (MidGbl . ZrqVecNo ,  MidGbl . OldZrqVec) ; 
iiidGbl.OldlrqVec  «  MDLL; 

} 

)  /*  MidAqTexm 


/*  . - . */ 

/*  MidAqInit:  Initialize  Midac  interface  for  data  collect  */ 

/*  */ 

/*  The  arguments  to  this  function  provide  for  setup  parameters  */ 

I*  and/or  nonstemdard  interface  board  configurations.  Each  is  */ 

/*  either  a  nonnegative  integer  value,  or  -1  to  use  the  */ 

/*  predefined  default  value.  */ 

/*  */ 

/*  The  first  two  arguments  (DmaChannel ,  ZrqNumber)  describe  the  */ 

/*  configuration  of  the  Midac  interface  board.  Current  interface  */ 

/*  boards  are  hardwired  for  DMA  chauinel  1  and  are  jumper  */ 

/*  selectable  to  use  either  IRQ2  or  IRQ3.  Other  options  could  */ 

/*  conceivably  be  possible  for  unusual  custom  requirements.  */ 

f*  In  general,  however,  such  a  modified  interface  board  would  */ 

/*  be  incompatible  with  existing  SpectraCalc  euid  I<ad>Calc  drivers .  */ 

/*  */ 

/*  The  buffer  size  argument  <MaxPoints)  is  necessary  to  allocate  */ 

/*  a  DMA  buffer.  This  buffer  has  the  hardware -enforced  */ 

/*  requirement  to  not  cross  a  64K-byte  absolute  memory  boundary.  */ 

/•  This  is  the  strictest  dynamic  allocation  requirement  in  a  */ 

/*  typical  data  collect  application,  and  should  be  done  first.  */ 

/*  If  co-addition  of  interferograms  is  to  be  performed,  this  is  */ 

/*  might  be  a  good  place  to  allocate  an  accumulator  buffer  as  */ 

/*  well.  */ 

/*  */ 

/*  The  gain  argument  (SignalGain)  provides  the  initial  signal  */ 

/*  gain  level  for  programming  the  interface.  This  value  is  */ 

/*  subject  to  change  during  program  operation,  but  seme  initial  */ 

/*  value  is  required.  */ 

/*  .  */ 

int  MidAqInit  ( 

int  DmaChaxinel,  /*  DMA  channel  number,  0-3  */ 

int  IrqNumber,  /*  PC/ISA  interrupt  chaumel  number  */ 

int  SignalGain,  /*  Signal  gain  level,  0-7  */ 

int  MzuePoints)  /*  Max  data  points  in  collect  buffer  */ 

{ 

int  i,  dmachan,  irqnum,  maxpts,  gainval,  gainport,- 

/*  Translate  and  validate  input  paramters —  *l 


dmachan  ■  DmaChannel >s0  ?  DmaChannel  :  DMA; 

irqnum  >  IrqNumber  >«0  ?  IrqNumber  :  IRQ; 

gainval  ■  SignalGain>«0  ?  SignalGain  :  GAIN; 
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maxpts 


MaxPoint8>«0  ?  MaxPolnts  t  BUPPTS; 


if  (dmachan  DMA)  return  -1|  /*  ***tainp***  need  to  know  page  */ 

/*  register  addresses  for  other  */ 

/*  DMA  channels  to  generalize  */ 

/*  this  for  other  byte  channels  */ 

if  (dmachan<0  j |  dmachan>3) 
return  -1; 

if  (irqnunKO  j  j  irqnuffl>15) 
return  -1; 

if  (gainvaKO  j  |  gainval>7) 
return  -1; 

if  (maxpts<l  II  maxpta>(MAXDMA  /  2)) 
return  -1; 

/*  Bring  the  hardware  interface  to  idle  state:  */ 


gainport  «  (“gainval  «  MZDCjGSHIFT)  &  MIDC_GMASK; 

/*  Compute  inverted  gain  val  */ 


MidGbl. GainVal 

>  gainval; 

/*  Save  requested  gain 

*/ 

MidGbl .GainPort 

>  gainport; 

/*  Save  port  image 

*/ 

CmdOut (gainport 

I  KIOC_EOS); 

/*  Set  gain,  DMA  off,  and 

*/ 

/* 

EOS, IRQ  strobes 

off.  •/ 

SetIrqEnable( irqnum,  0); 

/*  Disable  interrupt  channel 

*/ 

DisableDma( dmachan) ; 

/*  Disable  DMA  channel 

*/ 

IoDelay( ) ; 

/*  Wait  a  few  CPU  clocks 

•/ 

Initialize  DMA: 

*/ 

MidGbl . DmaDone  *  0 ; 

MidGbl.DmaActive  ■  0; 

MidGbl. MaxPoint 8  >  maxpts; 

MidGbl. DmaChannel  >  dmachan; 

MidGbl . DmaPageReg  «  DmaPageTable [ dmachan ] ; 

MidGbl. DmaSize  >  (long)maxpts  *  sizeof (unsigned  short); 

MidGbl. DmaBuffer  GetDmaBuf fer(MidGbl. DmaSize) ; 

if  (MidGbl. DmaBuffer  —  NULL) 
return  -1; 

for  (i«0;  l<maxpt8;  ■•"fi)  /*  Put  recognizable  null  data  */ 

MidGbl. DmaBuffer[i]  ■  OxEEEE;  /*  in  buffer  for  debug 

/*  Initialize  IRQ  channel  */ 

MidGbl . IrqNum  ■  irqnun; 

MidGbl. IrqVecNo  •  (irqnuiiKB  7  0x08  :  0x68)  irqnum; 

MidGbl. OldIrqVec  >  _dos_getvect(MidGbl.ZrqvecNo) ; 

_dos_setvect (MidGbl. IrqVecNo,  MidAqDmaDone ) ; 
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at«xit(MidAqT«rm) ; 
raturn  0; 

)  /*  MidAqInit  */ 
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APPENDIX  E 


DATA  CONVERSION  PROGRAM  (SCCONV) 


/*******************.****** . . . . . ************/ 

/*  program  SCCONV  version  2.0 

Date:  1  June  1993 

Author:  Bob  Kroutil 

This  program  will  read  a  series  of  SpectraCalc  files  and 
store  the  results  into  a  binary  format  inter ferogram  file. 

Note:  A  directory  listing  file  is  needed  by  this  program  for  the 

filename  input.  This  file  can  be  created  by  the  DOS  command 
"dir  *.spc  >dirfile"  ...  where  dirfile  is  the  name  of  the 
directory  file  to  be  used  as  input  to  this  program.  This 
file  should  be  edited  to  remove  the  starting  and  ending 
information.  A  listing  example  of  this  directory  file 
can  be  shown  in  the  supplied  file  "listfile". 


/ 


/include 

/include 

/include 

/include 

/include 

/include 

/include 

/include 

/include 

/include 

/define 

/define 

/define 

/define 

/define 

/define 


<stdio.h> 

<stdlib.h> 

<fcntl.h> 

<graph.h> 

<string.h> 

<math.h> 


<errno.h> 
"headers. def" 
"scale. def" 
"exscconv.def " 


GH_LENGTH 

512 

SH_LENGTH 

64 

SCALC 

256 

PMODE 

0644 

MAXLINE 

80 

EFILE 

46 

main  ( ) 

{ 

char  dirname(58],  lnamel[58],  lname2[4],  lname3[58],  lnamef[58]; 

char  cofflml[64],  coinn2(64],  coinm3(64],  comm4(64],  sensid[20],  opernam[10]; 

char  idate(10],  itime[10],  lnameh[10],  lnamea[10],  ieof,  itr[2]; 

char  lnante5(2],  lnaine6[2]; 

int  fp2,  sptr,  iscan,  itemp,  j,  jj,  igain; 

long  int  itempl,  intsise; 

oise_t  icount2; 

double  rmaxv4,  rmaxv3,  rmaxv2,  rmaxvl; 

FILE  *fd,  *fopen(); 
extern  long  intl_buffer[ ] ; 
extern  int  int_buffer( ] ; 
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•truct  global^header  gh; 
struct  scan^header  ah; 

•truct  apac^^header  ah; 

/*  initialize  the  global  header  and  scan  header  */ 
memset  (&gh,  32,  GH_LENGTH); 
nemset  (6sh,  32,  SH~LENGTH); 

BMfflaet  (conml,  32,  64); 
memaet  (coinm2,  32,  64); 
aiemaet  (coafn3,  32,  64); 
memset  ( coinm4 ,  32 ,  64 ) ; 
memset  (sensid,  32,  20); 
memset  (Inamea,  32,  10); 
mmset  (itr,  0,  2); 

•trcpy  (InameS,  "/"); 

•trcpy  ( lname6 ,  " : " ) ; 

/*  user  input  section  */ 

_clearscreen  (_GCLEARSCREEN) ; 

printf ("\nSCCONV  -  Interferogram  Data  Conversion  Program 

2.0-); 

printf ("\n\n  Input  the  directory  listing  filename:  ”); 

•canf  ("%s*',dirname) ; 

printf ("\n  Input  the  interferogram  output  filename:  "); 

•canf  ("%s",lnamef ) ; 

printf ("\n  Input  the  header  name  for  the  file:  "); 

•canf  ("%•", Inamea) ; 

/*  get  the  interferometer  scan  parameters  */ 

printf ("\n  Input  the  scan  speed  of  the  interferometer:  "); 

•canf ("%lf",6gh.scan_8peed) ; 

printf ("\n  Input  the  mirror  velocity  of  the  interferometer:  "); 
•canf (”%lf ”,Sgh.mirror_velocity) ; 

printf ("\n  Input  the  sampling  frequency  of  the  interferometer:  ") 
•canf ("%lf",Ggh.sample_freq) ; 

printf ("\n  Input  the  starting  transform  frecjuency:  "); 

•canf ("%lf",6gh.start_freq) ; 

printf (”\n  Input  the  ending  transform  frequency:  "); 

•canf ( "%lf ",£gh.stop_freq) ; 

printf ("\n  Input  the  number  of  zero  crossings  per  sampled  point: 
•canf ("%d",6gh.zercross) ; 

printf ("\n  Input  the  data  collection  mode:  "); 

•canf  (”%d’',6gh.collect_mode) ; 

/*  input  four  lines  for  the  global  comments  */ 
printf ("\n  Input  four  lines  for  comments : Xn” ) ; 
gets(comml) ; 
printf  ("»") ; 
gets ( comml ) ; 
printf  ("»") ; 
gets(cofflm2) ; 
printf  ( "»" ) ; 
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get8(coEam3) ; 
printf  ("»") ; 
gets ( conmA ) ; 

printf ("\n  Enter  the  censor  ID  nane  for  inter ferogram  header:  "); 
gets(8enaid) ; 


/* 


create  the  interferogram  output  file  and  open  for  writing  */ 
if  ( <  f p2  «  creat ( Inamef ,  PMOOE ) )  <  0  ) 

{ 

printf <"\n\SCCONV\"  is  unable  to  create  %s\n”,  Inamef); 
exit(2) ; 


> 

if  ((  fp2  -  open  (Inamef,  0_WR0NLy | 0_BZNARy ) )  <  0  ) 

{ 

printf ("\n\SCCONV\"  is  unable  to  open  %s\n",  Inamef); 
exit  (3); 


} 


/*  open  the  directory  listing  file  and  loop  to  read  the  SpectraCalc 
file  names  */ 

if  ((  fd  >  fopen(dirname,  "r**))  »  NULL  ) 

{ 

printf ( "\nERROR  -  can  not  open  directory  listing  file."); 

> 

/*  loop  to  read  each  interferogram  filename  in  the  directory  file  */ 
iscan  *0; 
tloop: 

iscan-t-f; 


/*  read  one  directory  file  record  */ 
memset ( lname3 ,  0,  58); 
memset (Inamel,  0,  58); 
memset (Inameh,  0,  10); 
fgets  (Inameh,  MAXLINE,  fd); 
icount2  «  9; 

memcpy  (filnamel,  Slnameh,  icount2); 
strcpy  (lname2,  ".SPC"); 
street  (Inamel,  lname2); 

_fullpath(lname3,  Inamel,  58); 
icount2  *1; 

memcpy  (&ieof,  filnamel,  icount2); 

/*  if  at  the  end  of  the  file  then  stop  and  close  all  files  */ 
if  (ieof  EFZLE) 

< 

printf  ("\n\nTotal  Number  of  Interferograms  Converted  ■»>  %4d\n", 
iscan-1) ; 

gh.stop_scan  ■  iscan  -  1;  /*  insert  the  number  of  scans  in  header  */ 

I*  insert  the  correct  stop  time  into  the  global  header  */ 

/*  insert  the  correct  hour  into  the  global  header  */ 
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lcount2  «  1; 
itemp  *  0; 

meincpy(  Ciitemp,  fcah.ihour,  icount2)# 
sprintf(  gh.Btop_tiine,  "%2d",  itemp)} 
memcpy(  gh.8top_tiine->-2,  lname6,  icount2); 

/*  insert  the  correct  minute  into  the  stop  time  */ 
memcpy(  fiitemp,  fiah.iminute,  icount2); 

Bprintf(  gh.stop_tlme-«-3,  ’’%2d”,  itemp); 

/*  dummy  the  seconds  into  the  subfile  header  */ 

Bkemcpy(  gh. 8top_time-«-5,  Inamefi,  icount2); 
itemp  *0; 

sprintf(  gh.stop_time't-6,  "tld",  itemp); 
aprintf(  gh. 8top_time-«-7,  "%ld",  itemp); 

/*  write  the  global  header  and  close  all  files  before  exit  */ 

Iseek  (fp2,  OL,  0);  f*  rewind  the  file  to  the  beginning  */ 
write  (fp2,  &gh,  GH_LENGTH);  /*  write  global  header  */ 
close  (fp2); 
f close  (fd); 
exit  (1); 

> 

/*  tell  the  user  what  file  we  are  converting  */ 

printf("\n - - - - - — -  »  . ") 

printf ("\nwriting  interferogram  #  %04d  *«>  reading  filename  ; 

%s" , iscan, InameJ ) ; 


/*  open  the  SpectraCalc  format  data  files  */ 

if  ((sptr  ■  open  (lname3,  0_RD0NfLy  !o_BlNARy> )  <  0) 

{ 

printf ("\n  Unable  to  open  the  SpectraCalc  file  %s\n”,  lname3); 
exit  (4); 

> 

/*  read  the  SpectraCalc  256  byte  header  record  */ 
if  (  read  (  sptr,  &ah,  SCALC)  i*  SCALC) 

{ 

printf ("XnERROR  -  can  not  read  SpectraCalc  header  for  file 
%s\n" , Inamef ) ; 

exit  ( 5 ) ; 

> 

/*  check  to  see  if  too  many  points  are  in  the  file  */ 
itemp  *  (int)  ah.npts; 
if  (itemp  >  MAXPOINTS) 

{ 

printf ("\nERROR:  >  %d  points  in  file  ...  #  points*  %d\n", MAXPOINTS 
itemp) ; 

printf ( ”\nfilename*  %8\n" , lname3) ; 
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•xit(9); 

) 


/* - */ 

/*  convert  the  SpectraCalc  global  header  Infomation  and  subfile  information 

*/ 

/*  convert  the  global  information  */ 
if  (iscan  »  1) 

{ 

/*  find  the  interferogram  sise  to  write  to  disk  */ 
intsize  >  (int)  ah.npts; 

/*  set  the  filename  into  the  global  header  */ 
icount2  «  10; 

memcpy  (figh. filename,  filnamea,  icount2); 

/*  insert  other  global  header  information  */ 
gh.integer_type  *  1; 
gh.scan_size  >  (int)  ah.npts; 
memcpy (Siitr,  (iah.iresol,  1); 
gh. resolution  >  (double)  (atoi  (itr)); 
gh.max_wav  >  gh.stop_freq  *  (f loat)gh. zer cross; 
gh.zercroes  >  gh.zercross  *  100; 

/*  input  the  weather  information  into  the  header  if  needed  */ 
gh . ambient_temp  «  0; 
gh.barjpressure  «  0.0; 
gh. humidity  ■  0; 
gh.wind_speed  ■  0; 
gh.wind_direction  «  0; 
gh.sen8or_direction  ■  0; 
gh.precip_code  «  0; 

/*  insert  the  correct  month  into  the  global  header  */ 
lcount2  >1; 
itemp  >0; 

memcpy (  fiitemp,  fiah.imonth,  icount2); 
sprintf(  gh.date,  "%2d",  itemp); 

/*  insert  the  day  into  the  global  header  */ 
memcpy (  gh.date'i'2,  InameS,  icount2); 
memcpy (  Ciitemp,  Ciah.iday,  icount2); 
oprintf(  gh.date-t-3,  "%2d",  itemp); 

/*  insert  the  year  into  the  global  header  */ 
memcpy (  gh.date-t-5,  lname5,  icount2); 
itemp  >  ah.iyear  -  1900; 
sprintf(  gh.date-i-6,  ”%2d",  itemp); 

/*  insert  the  starting  time  into  the  global  header  */ 
memcpy(  liitemp,  Ciah.ihour,  lcount2); 
sprintf(  gh.start_time,  ”%2d",  itemp); 
memcpy (  gh.start_time-«-2,  lname6,  icount2); 
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/*  insert  the  correct  minute  into  the  header  */ 
memcpy(  fiitemp,  fiah.iminute,  icount2); 
sprintf(  gh.Btart_time-»-3,  "%2d",  itemp); 

/*  dunmy  the  seconds  information  into  the  subfile  header  */ 
memcpy(  gh.start_time-*-S,  lname6,  icount2); 
itemp  >0; 

sprintf(  gh.start^time-t-6,  "%ld'',  itemp); 
sprintf(  gh.start__tiffle-<-7,  "%ld",  itemp); 

/*  input  the  sensor  ZD  name  into  the  global  header  */ 
icount2  «  20; 

memcpy  (6gh.  sensor_id,  Cisensid,  icount2); 

/*  input  the  operators  name  into  the  header  */ 
memset(opernam,  0,  10); 
icount2  >  10; 

strcpy  (operniun,  *  "); 

memcpy  ( 6gh . operator ,  fioper nam ,  icount 2 ) ; 

/•  insert  the  comment  data  into  the  global  header  */ 
icount2  *  64; 

memcpy  ( &gh . comml ,  comml ,  icount2 ) ; 
memcpy  (&gh.comm2,  comm2,  icount2); 
memcpy  (6gh.comm3,  comm3,  icount2); 
memcpy  (&gh.comm4,  comm4,  icount2); 

> 

/* - */ 

/*  check  to  see  if  current  interferogram  has  the  same  number  of  points 
as  all  other  inter ferograms  */ 
itemp  *  (int)  ah.npts; 
if  (itemp  intsize) 

{ 

printf ("\nERR0R:  number  of  points  in  interferogram  file  not  the”); 
printf ( " \n  same  as  other  interf erograms . . . \n” ) ; 

printf ("filename*  %s\n"rlname3) ; 
exit(9); 

> 

/•  write  the  interferogram  global  header  information  to  disk  */ 
if  (iscan  ■»  1) 

if  (write  (  fp2,  figh,  GH  LENGTH)  t«  GH_LENGTH) 

{ 

printf ("\nERROR  -  Unable  to  write  global  header  of  output 
interferogram  f ile. " ) ; 
exit  (6); 

} 

> 

/*  read  the  SpectraCalc  data  from  disk  */ 
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if  (  read  (  eptr,  int_buf£er,  4  *  Inteize)  !■  4  *  Intaize) 

printf ("\nERROR  -  Unable  to  read  SpectraCalc  data  from  disk  "); 

•xit  (7); 

} 

I*  convert  the  SpectraCalc  data  to  binary  format  for  interferogram  file  */ 
/*  swap  the  16  bits  around  for  the  correct  word  order  */ 
for  (  j  ■  0;  j  <  2*intai2e;  j+*2) 

< 

itemp  ■  int_buffert j+lj; 
int_buffer( j+1]  -  int_buffert j ] ; 
int_buffer( j ]  ■  itemp; 

} 

icount2  ■  4  *  intsize; 

memcpy  (6intl_buf fer,  fiint_buffer,  icount2); 

/*  calculate/convert  the  correct  gain  and  scaling  for  the  interferogram  */ 
/*  printf ("\nah.igain*%d\n", ah. igain);  */ 

itempl  >1; 
if  (ah.igain  <>  16) 

rmaxvl  «  (double)  (itempl  «  (  32  -  ah.igain  )); 

else 

rmaxvl  *  1.0; 
if  (ah.igain  <■  7) 

rmaxvl  >  (double)  (itempl  «  16); 
rmaxv3  «  0.0; 

for  (  j  ■  0;  j  <  intsize;  j++) 

{ 

rmaxv2  »  ((double)  intl_buffer( j])/rmaxvl; 
rmaxv3  >  max  (  rmaxv2 ,  rmaxv3 ) ; 

} 

if  (ah.igain  <>16) 

{ 

rmaxv2  -  (log  ((double)  (itempl  «  8)))  /  (log  (rmaxv3)); 
igain  «  (int)  rmaxv2; 

rmaxv4  -  (double)  (itempl  «  (igain)); 

} 

if  (ah.igain  >  16) 

{ 

igain  ■  ah.igain  -  32; 
rmaxv4  «  1.0; 

) 

if  (ah.igain  <«7  ) 

{ 

igain  «  ah.igain  -  16; 
rmaxv4  «  1.0; 

} 

for  (  j»0;  j  <  inteize;  j++) 

< 

rmaxv2  *  ((double)  intl_buf fer( j ] )/rmaxvl; 
rmaxv3  »  rmaxv2  *  rmaxv4; 
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/*  print£("\nrmaxv3>%£",nnaxv3) ;  */ 

lnt_bu££er[ j ]  ■>  (int)  rmaxv3| 

> 

/. - ./ 

/*  insert  the  correct  inter£erograiii  sub£ile  header  ln£ormation  */ 
Bh.scan_nuinber  »  Iscan;  /*  input  the  scan  nustber  */ 
sh.peak_location  «  (int)  ah.scheadl;  /*  input  the  peak  location  */ 
sh.gain  »  igain;  /*  input  the  A/D  gain  */ 

sh. coadd  >  1;  /*  input  the  /  of  coadded  interierograms  */ 

icount2  *9; 

asemcpy  (&sh.£ilenaine,  Cilnaineh,  icount2);  /*  input  iilename  */ 

sh. error  «  0;  /*  assume  all  error  codes*0  £or  the  SpectraCalc  £iles  */ 

/*  insert  the  correct  time  into  the  sub£ile  header  */ 
icount2  *  1; 
itemp  -  0; 

memcpy(  fiitemp,  Sah.ihour,  icount2); 
sprint£(  sh.scan_time,  "%2d",  itemp); 
inemcpy(  sh. scan_time-t-2,  lname6,  icount2); 

/*  insert  the  correct  minute  into  the  header  */ 
memcpy(  fiitemp,  fiah.iminute,  icount2); 
sprint£(  ah.scan_time-t-3,  "%2d",  itemp); 

/*  dummy  the  seconds  in£ormation  into  the  sub£ile  header  */ 
memcpy(  sh.scan_time+S,  lname6,  icount2); 
itemp  «  0; 

sprint£(  sh.scan_time+6,  *%ld",  itemp); 
sprint£(  sh.scan_,time+7,  "tld",  itemp); 

/*  i£  no  peak  position  put  into  the  SpectraCalc  header,  then  find  it  */ 
i£  (sh.peak_location  »  0) 

( 

itemp  >  0; 

£or  (  j  ■  0;  j  <  intsize;  j++) 

{ 

jj  ■  abs  (int_bu££er( j ] ) ; 
i£  (itemp  <  jj) 

{ 

itemp  ■  abs  ( int_bu£ £er ( j ] ) ; 
sh.peak^location  >  j+l; 

} 

} 

) 


/*  print  the  spectracalc  header  in£ormation  out  to  the  screen  */ 

print£("\ninter£erograffl  number  *  %d'',Bh.scan__nufflber) ; 

print£("\ninter£erograffi  gain  «  %d” , ah. igain) ; 

print£("\nnumber  of  points  >  %ld", intsize) ; 
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print£("\nresolution  ••  %f  ”,gh.  resolution ) ; 

print£("\nmaximum  peak  location  «  %d”,sh.peak_location) ; 

prlntfCXncomment  1  »  %B",ah.scoainl) | 
printf ("\ncoinnent  2  »  %8'',ah.scoafD2)i 
prlntf ("Xncomroent  3  »  %8",ah.8conin3); 


/*  write  the  subfile  header  information  to  the  interferogram  disk  file  */ 
write  (fp2,  68h,  SH_LENGTH); 

/*  write  the  interferogram  data  to  disk  */ 

if  (write  (  fp2,  int_buffer,  2*int8ire)  1*  2*intBize) 

{ 

printf ("XnERROR  -  Unable  to  write  the  interferogram  data  to  disk"); 
exit  (8); 

} 

close  (sptr); 
goto  tloop; 
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APPENDIX  F 


DATA  CONVERSION  PROGRAM  (CONVINTF) 

/*******«********«•*•*********  program  CONVINTF  *****************************/ 
/* 

program  CONVINTF  varslon  1.5 

This  program  will  convert  an  interferogram  from  a  aequential  file 
type  (as  created  by  program  MIDCOL)  to  multiple  files  that  can 
be  read  using  the  SpectraCalc  binary  floating  point  format.  The 
program  can  also  output  a  SpectraCalc  data  file  format  file. 

author:  Bob  Kroutil 

date:  May  1993 


*/ 


#include 

#include 

/include 

/include 

/include 

/include 

/include 

/include 

/include 

/include 


<stdio.h> 
<8tdlib.h> 
<fcntl.h> 
<graph.h> 
<8tring.h> 
<fflath . h> 
<errno.h> 
"headers. def" 
"scale. def" 
"exconv.def " 


/*  include  headers  for 
/*  include  the  headers 
/*  external  arrays  */ 


interferogram  file  */ 
for  spectracalc  files  */ 


/define  GH_LEMGTH  512 
/define  SH~LENGTH  64 
/define  SCALC  256 


main  ( ) 

{ 

char  dirname(58],  lnamel[30],  lnaffle2[30],  lname3[4],  lnamef[58],  lname4[6]; 
int  fp2,  sptr,  istart,  istop,  scan,  iscan,  j; 
int  itype,  igainl,  jj,  itemp; 

float  xstart,  xstop,  xunits,  yunits,  resol,  gain,  numpts,  tmaxv,  smaxv; 
float  8chead[8],  xbeg,  numptsl,  xend; 
long  int  position,  itempl,  intsize; 

char  ivn[l],  ihex[l],  ixtype(l],  iytype(l],  imonth[2],  atime[4]; 
char  iday [ 2 ] ,  ihour [ 2 ] ,  iminute ( 2 ] ; 
char  iresol[8]; 

double  tmaxvl,  smaxvl,  rmaxvl,  rmaxv2; 

size_t  index>30,  icount2; 

extern  int  int_buffer[ ] ; 

extern  long  intl_buffer( ] ; 

extern  float  intf_buffer[ ] ; 

struct  global_header  gh; 

struct  scan_header  sh; 

struct  8pec_header  ah; 


/*  initialize  spectracalc  data  header  constants  */ 
icount2  *1; 
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memset (ivn,  0,  icount2) ; 
memset (ihex,  77,  icount2) ; 
memset ( ixtype ,  0,  icount2); 
memset (iytype,  1,  icount2) ; 

h  ask  the  user  to  input  the  data  file  names  */ 

_clearscreen  (_GCIiEARSCREEN)  ; 

printf ( " \nCONVINTF  -  Midac  Data  Conversion  Program 

Version  1.5\n") ; 

printf ( " \nlnput  the  interferogram  file  name  to  read  :  ") ; 
scanf  (”%8'',dimame)  ; 

printf (" \nlnput  a  partial  character  name  for  output  interferogram  filename 
")  ; 

scanf ("%s" , Inamel) ; 

printf (" \nlnput  the  starting  interferogram  to  convert  ;  "); 
scemf  ("trd" ,  &i start)  ; 

printf (" \nlnput  the  ending  interferogram  to  convert  ;  ") ; 
scanf ( " %d" , &i8top) ; 
istart  *  istart  -  1; 
istop  =  istop  -  1; 

printf ("\nlnput  the  menu  format  type  number  for  interferogr2un  data 
conversion: \n" ) ; 

printf ("  1  s  floating  point  2  «  SpectraCalc  format  \n"); 
scanf ("%d",&itype) ; 

/*  if  data  type  not  correct,  then  stop  the  program  and  print  error  message  */ 
if  (itype  <*  0  | |  itype  >=  3) 

{ 

printf {"\nKEYBOARD  INPUT  ERROR  -  data  type  to  output  does  not  exist. \n") 
exit (9) ; 

} 

/*  open  the  binary  file  and  read  the  global  header  information  */ 
if  ((fp2  >  open  (dimame,  O  RDONLY 1 0_BINARY) )  <  0) 

{ 

printf  ("\n\"CONVINTF\"  is  unable  to  open  %8\n" , dimame)  ; 
exit (2) ; 

} 

if  (read  (fp2,  &gh,  GH_LENGTH)  !«  GH_LENGTH) 

{ 

printf ( " \nERR0R  -  Unable  to  read  global  header  of  input  interferogram 
file.\n") ; 

exit (3) ; 

} 

/*  find  the  interferogram  size  and  check  to  see  if  too  many  data  points 
are  in  file  */ 
intsize  s  gh . scan_Bize ; 
if  (intsize  >  MAXPOINTS) 

{ 

printf ("\nERROR:  >  %d  data  points  in  file  -  #point8s%ld\n" , MAXPOINTS, 
intsize) ; 
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exit(9); 

> 

/*  tell  the  user  how  many  inter ferograme  in  the  inter ferogram  file  */ 
print f  ( "XnLaat  interferogram  number  in  input  data  file  >»>  %4d\n", 
gh . stop_scan ) ; 

if  (ietop  >  gh.stop_scan  | j  istart  >  gh.stop_acan) 

{ 

printf  ("\n  ERROR  -  interferogram  to  convert  >  interferograme 
preeent\n" ) ; 

exit(4); 

} 

if  (ietop  <  0  I j  istart  <  0) 

{ 

printf  ("\nERROR  -  interferogram  ntimber  out  of  range. \n"); 
exit (4) ; 

} 

/*  position  the  disk  file  for  the  first  file  to  read  */ 
position  *  ((long)  istart)  *  2112L  512L; 

Iseek  (fp2,  position,  0); 

/*  loop  to  read  interferograme  and  store  each  to  disk  with  the  appropriate 
file  name  */ 

for  (scan  •  istart;  scan  <«  ietop;  scan-i-'t-) 

{ 

iscan  «  scan-fl; 

/*  read  the  binary  interferogram  subfile  */ 

if  (read  (fp2,  fish,  SH_LENGTH)  l-SH_LENGTH) 

printf ( ”\nERROR  -  Unable  to  read  the  subfile  header\n”); 
exit (5); 

} 

/*  read  the  binary  interferogram  data  points  */ 

if  (read(fp2,  int_buffer,  2*intsize)  I-  2*intsize) 

{ 

printf ("\nERROR  >  Unable  to  read  the  interferogram  data\n"); 
exit(6); 

} 


/*  set  up  the  correct  path  name  */ 
memset  (Inamef,  0,  58); 
memcpy  (lname2,  Inamel,  index); 
if  (itype  »  1) 

strcpy  (lname4, ".fsp") ; 
else 

strcpy  (lname4, ".spc" ) ; 
sprintf  (lname3,  "%04d”,  iscan); 
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strcat  (lname2,  lname3); 

Btrcat  (lnaine2,  Inaine4); 

_fullpath(lnamaf ,  lnaine2,  58); 

/*  write  out  the  file  number  and  name  to  the  screen  */ 

printf ("\nreading  interferogram  #  %04d  »>  writing  filename:  %s", 
8h.Bcan_number, Inamef ) ; 

/*  try  to  open  the  file  for  writing  only  */ 

if  ((sptr  «  open (Inamef,  0_WRONLy |0_BINARYiO_CREhT) )  <  0  ) 

{ 

printf ("\nUnable  to  open  the  file  %s\n" , Inamef ) ; 
exit{7); 

} 

/*  initialize  the  header  data  for  each  binary  file  */ 
numptB  >  (float)  gh.Bcan_8ize; 

XBtart  >  0.0; 

XBtop  «  numpts; 
xunitB  *  0.0; 

yunits  s  1.0;  /*  SpectraCalc  value  for  Interferogram  points  */ 

resol  >  gh. resolution; 

^********************************************************** ************/ 

/*  write  to  the  disk  if  itype  >  1  (floating  point  format)  */ 
if  (itype  ■»  1) 

/*  gain  range  the  interferogram  and  store  it  into  the  real  array  */ 
if  (sh.gain  >>0  ) 

gain  >  (float)  (1  «  sh.gain); 

else 

gain  >  (float)  (1  «  (-sh.gain)); 
for  (j  ■  0;  j  <  intsize;  j++) 

{ 

if  (sh.gain  >»0) 

intf_buffer( j ]  ■  ( (float )int_buffer(j ) )  *  gain; 

else 

intf_buffer( j]  ■  ( (float ) int_buffer(j ^ )  /  gain; 

> 

/•  write  the  interferogram  information  to  disk  */ 
write  (sptr,  (char  *)  Cnumpts,  4); 
write  (sptr,  (char  *)  Sxstart,  4); 
write  (sptr,  (char  *)  Sxstop,  4); 
vnrite  (sptr,  (char  *)  fixunits,  4); 
write  (sptr,  (char  *)  fiyunits,  4); 
write  (sptr,  (char  *)  firesol,  4); 

if  (write  (sptr,  intf  buffer,  4*intsize)  t»  4*intsize) 

{ 

printf ("\nERROR  -  Unable  to  write  the  interferogram  data  to  di8k\n") 
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•xit (8) ; 

> 


/*****.******************** . ***.*******************.***************/ 

/*  wcitB  to  the  disk  if  Itype  «  2  (SpectraCalc  format)  */ 
if  (itype  ■*  2) 

{ 

/*  scale  the  data  for  the  spectracalc  format  */ 
tmaxv  >  0.0; 
smaxv  ■  0.0; 

for  (jj  “  0;  jj  <  intsize;  jj++) 

{ 

if  (sh.gain  >>  0) 

tmaxv  -  ((float)  (aba  (int_buffer(jj ])))*( (float) (1  «  sh.gain)); 

else 

tmaxv  ((float)  (abs  (int_buffer(  j  j  ] ) ) ) ; 
smaxv  s  max  (smaxv,  tmaxv); 

} 

smaxvl  >  (double)  smaxv; 
tmaxvl  s  2.0; 
rmaxvl  «  log  ( smaxvl ) ; 
rmaxv2  «  log  (tmaxvl); 
if  (  sh.gain  >«  0  ) 

igainl  «  (int)  (tmaxvl  <f  rmaxvl/rmaxv2) ; 

else 

igainl  <■  32  sh.gain; 

/*  find  the  interferogram  peak  location  and  put  into  header  */ 
schead[l]  «  (float)  sh.peak_location; 


/* - 

/*  move  the  data  into  the  spectracalc  header  */ 


/*  set  the  data  header  init  data  bytes  */ 
icount2  >1; 

memcpy  (fiah.ivn,  Sivn,  icount2); 
memcpy  (fiah.ihex,  &ihex,  icount2); 

/*  set  the  gain  in  the  header  */ 
ah.igain  >  igainl; 

/*  set  the  number  of  points  */ 
ah.npts  *  numpts; 

/*  set  the  starting  point  for  data  */ 
ah.xbeg  >  xstart; 

/*  set  the  ending  point  for  data  */ 
ah.xend  «  xstop; 

memcpy(  fiah.ixtype,  &ixtype,  icount2); 


*/ 
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inerocpy(  fiah.iytype,  Ciiytype,  icount2); 

/*  insert  the  correct  year  into  the  header  */ 
icount2  >4; 

memset (atime,  0,  icount2); 
icount2  >2; 

memcpy  (  fcatiroe,  &(gh.date  *  6),  icount2); 
ah.iyear  -  1900  +  atoi  (atime); 

/*  insert  the  correct  month  into  the  header  */ 
icount2  *4; 

memset (atime,  0,  icount2); 
icount2  >2; 

memcpy  (  fiatime,  figh.date,  icount2); 
itemp  >  atoi  (atime); 
memcpy  (  fiimonth,  fiitemp,  icount2); 
icount2  *  1; 

memcpy(  fiah.imonth,  fiimonth,  icount2); 
icount2  >4; 

/*  insert  the  correct  day  into  the  header  */ 
memset (atime,  0,  icount2); 
icount2  >2; 

memcpy  (  fiatime,  fi(gh.date'«-3) ,  icount2); 
itemp  «  atoi  (atime); 
memcpy  (  fiiday,  fiitemp,  icount2); 
icount2  ■  1; 

memcpy (  fiah.iday,  fiiday,  icount2); 

/*  insert  the  correct  hour  into  the  header  */ 
icount2  >4; 

memset  (atime,  0,  icount2); 
icount2  «  2; 

memcpy  (  fiatime,  &8h.8can_time,  icount2); 
itemp  »  atoi  (atime); 
memcpy  (  fiihour,  fiitemp,  icount2}; 
icount2  >1; 

memcpy  (  fiah.ihour,  fiihour,  icount2); 

/*  inaert  the  correct  minute  into  the  header  */ 
icount2  »  4; 

memaet (atime,  0,  icount2); 
ieount2  ■  2; 

memcpy  (  fiatime,  fi(8h.scan_time-f3) ,  icount2); 
itemp  >  atoi  (atime); 
memcpy  (fiiminute,  fiitemp,  icount2); 
icount2  ■  1; 

memcpy  (  fiah.iminute,  fiiminute,  icount2); 

/*  insert  the  resolution  information  into  the  header  */ 
sprint f  (iresol, "t.Of ",  gh. resolution) ; 
icount2  *  8; 
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memcpy  (Siah.iresol,  Siresol,  icount2); 


/*  insert  the  peak  maximum  and  other  information  into  the  header  */ 
ah.Bcheadl  «  schead[l]; 
ah.8chead2  «  0.0; 
ah.schead3  ■  0.0; 
ah.schead4  «  o.O; 
ah.BcheadS  ■  0.0; 
ah.schead6  *  0.0; 
ah.schead?  «  0.0; 
ah.echeadS  >  0.0; 

/*  insert  user  comments  into  the  header  */ 
icount2  *64; 

memcpy  ( fiah . scomml ,  £gh . comml ,  icount2 ) ; 
memcpy  (&ah.scomm2,  &gh.comffl2,  icount2); 
memcpy  (&ah.8comm3,  &gh.comm3,  icount2); 

/* - */ 

/*  write  the  SpectraCalc  256  byte  header  to  disk  */ 
if  (write  (sptr,  £ah,  SCALC)  1-  SCALC) 

{ 

printf ("\nERROR  >  can  not  write  SpectraCalc  header  recordXn”); 
exit  (10); 

> 


/•  convert  the  data  to  two's  complement  data  format  of  SpectraCalc  */ 
/*  multiply  by  the  gain  from  the  binary  interferogram  file  */ 
itempl  *  1; 

rmaxvl  *  (double)  (  itempl  «  (  32  -  igainl  )); 
for  (jj  ■  0;  jj  <  intsize;  jj++) 

{ 

if  (sh.gain  >*  0) 

rmaxv2«rmaxvl* (double) int_buffer{jj]* (double) (1  «  sh.gain); 

else 

rmaxv2* ( double ) int_buf  f er ( j  j ] ; 
intl_buffer( j j J  »  (long)  rmaxv2; 

} 

/*  copy  the  long  integer  bytes  to  a  short  integer  words  */ 
icount2  *  4* intsize; 

memcpy  (fiint_buffer,  £intl_buffer,  icount2); 

/*  reverse  the  integer  words  for  the  SpectraCalc  32  bit  word  format  */ 
for  (j  ■  0;  j  <  2*intsize;  j+*2) 

itemp  *  int_buffer( j-fl] ; 
int_buffer[ j+1)  •  int_buffer( j ); 
int  buffer(j]  *  itemp; 

> 
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/*  write  the  buffer  to  disk  */ 

if  (write(8ptr,  int  buffer,  4*intsize)  1>  4*intsise) 

{ 

printf ("\nERROR  -  Unable  to  write  interferogram  to  data  to  disk.\n"); 
exit(9) ; 

> 

) 

/**«**«*****.••«****•***«*«***<, . ****««************•****«*«*********«/ 

/*  close  file  and  loop  to  get  another  interf erogram  */ 
close  (sptr); 

} 

/*  when  finished...  close  the  file  and  update  the  user  */ 

printf ("Vn\nTotal  Number  of  Interferograms  Converted  »=>>  %4d\n”, 
istop-istart+l) ; 
close ( f p2 ) ; 
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APPENDIX  G 


DATA  COLLECTION  PROGRAM  (MIDCOLV) 

^*************4r*********^  piro^ST&m  MTDCOTi  *♦*************♦*♦****★*********/ 
/* 

program  MIDCOL  Version  4.0 

This  program  is  used  to  read  interferogram  data,  display, 
interferogram  data,  euid  Fourier  transform  the  data  for 
display.  This  program  will  be  used  for  data  collection 
for  the  Midac  interferometer. 

author:  Bob  Kroutil,  Mike  Housky 

date:  August  1992 

routines  called: 

plotr  -  plots  an  interferogram  or  spectrum 
logoega  -  prints  the  CRDEC  logo 

draw_20cis  -  draws  the  axis  for  the  plots  for  either  interferogram 
or  spectra 

cnpfft  -  confutes  the  fast  Fourier  trauisform 
normal  -  normalires  the  spectrum 

MidAqInit  •  initialize  the  Midac  interferometer 
MidAqStartScaui  •  set  up  scanning  for  Midac 
Microsoft  C  graphics  routines 

. *! 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <fcntl.h> 

#include  <graph.h> 

#include  <math.h> 

#include  <string.h> 

#include  <time.h> 

#include  <stddef .h>/*  Standard  ANSI  headers*/ 

#include  <conio.h>/*  MSC-specific  headers*/ 

#include  <malloc.h> 

#include  <dos.h> 

#include  "headers. def"  /*  interferogram  header  information  */ 

^include  "middef .h"  /*  MIDAC- specific  headers*/ 

#include  "menu.h"  /*  menu  display  information  */ 

#include  "exmidcol .def "  /*  external  array  definitions  */ 


/*  .  */ 

/*  Local  definitions:  */ 

/*  . - .  */ 


/*  MSC7/MSC6  Portability:  */ 

#ifdef  MSC_VER 
#if  MSC  VER  >«  700 
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/define  outp  _outp 
/define  inp  inp 
/endif 
/endif 


/define  TIMEOUT 

/*  Defaults  for 

30.0 

MidAqInit: 

/* 

DMA  Completion  timeout,  in  seconds 

*/ 

*/ 

/define 

DMA 

1 

/* 

Default  DMA  channel 

*/ 

/define 

DMAPAGE 

/* 

0x83 

channel 

/* 

DMA  page  register  port  for  default 

*/ 

*! 

/define 

IRQ 

2 

/* 

Default  IRQ  channel 

*/ 

/define 

GAIN 

0 

/* 

Default  signal  gain  level  (0-7) 

*/ 

/define 

BUFPTS 

/* 

16384 

points 

/* 

Default  DMA  buffer  size  in  data 

*/ 

V 

/define 

MAXDMA 

0xFF80 

/* 

Maximum  DMA  buffer  size  in  bytes 

*/ 

/*  Note:  MAXDMA  must  be  less  than  the  "ideal"  limit  of  */ 
/*  64K  for  the  GetOmaBuffer  function  to  work  properly.  */ 


/* 

*/ 


System  board  (PC/AT)  I/O  definitions: 


/define  SYS_DMA1  0x00  /*  Base  of  byte  DMA  controller  */ 


/*  These  ports  are  channel-independent: 


/define  0MA_STAT  (SYS^DMAl-t-  8)  /*  (R)  Status  register  */ 
/define  DMA^CMD  (SYS_DMAl-»-  8)  /*  (W)  Command  register  */ 
/define  DMA_REQ  (SYS_DMA1-*-  9)  /*  (W)  Request  register  */ 
/define  DNA_HSMR  (SYS_DMAl-i-10)  /*  <W)  Write  single  mask  register  */ 
/define  DMa]|^MODE  (SYS~DMA1-M1)  /*  (W)  Mode  register  */ 
/define  DMA_CLRF  (SYS~DMA1+12)  f*  (W)  Clear  byte  pointer  flip-flop  */ 
/define  DMA_TEMP  (SYS^DMAl-t-lS)  /*  (R)  Temporary  register  */ 
/define  DMA_MCLR  (SYS~DMAl->-13)  /«  (H)  Master  Clear  */ 
/define  DMA_CMSK  (SYS_DMA1-M4)  /*  (W)  Clear  mask  register  */ 
/define  DMA_WAMR  (SYS~DMA1-M5)  /*  (W)  Write  all  mask  register  bite  */ 


/*  These  occur  4  times,  once  for  each  channel.  Add  2* (channel  number)  */ 
/*  to  get  true  port  address:  */ 


/define 

DMA_ADDR 

(SYS_DMA1+  0) 

/* 

/define 

dma”ctr 

(SYS_DMA1+  1) 

/* 

/define 

SYS_PIC1 

0x20 

/• 

/define 

PIC1_CMD 

(SYS_PICl+0) 

/• 

/define 

PIC1_STAT 

(SYS_PICl+0) 

/* 

/define 

PIC1_MASK 

(SYS“PIC1+1) 

/* 

/define 

SYS_PIC2 

OxAO 

/* 

(R/W)  Base  or  current  address 
(R/W)  Base  or  current  word  count 

Base  of  prisMry  interrupt  controller 
(W)  Command  register  (OCW2/OCW3) 

(R)  Status  register  (ISR  or  IRR) 
(R/W)  Interrupt  mask  register 

Base  of  secondary  int.  controller 


*/ 

*/ 

*/ 

*/ 

*/ 

V 

V 
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/define  PIC2_CMD  (SYS_PIC2+0) 

/define  PIC2_STAT  (SyS~PIC2+0) 

/define  PIC2J1ASK  (SYS~PIC2-»-l) 

/define  PICC_EOI  0x20 

/*  conmand 

/* 

Local  Macros: 

*/ 

/define  PtrToLong(p)  ( ( (long)FP_SEG(p)  «  4)  (Iong)PP_OFF(p) ) 

/*  Macro  to  convert  far  pointer  to  */ 

/*  20-bit  absolute  address  */ 

/define  DisableDma(ch)  outp(DMA_WSMR,  (ch)-«-4)  /*  Disable  DMA  channel  */ 
/define  EnableDma(ch)  outp(DMA_WSMR,  (ch))  /*  Enable  DMA  channel  */ 

/*  Input  and  output  from  read-only  command  port,  a  shadow  copy  of  the  */ 
/*  port  value  is  kept  in  MidGbl . CmpPort :  */ 

/define  Cmdln()  ( MidGbl. CmdPort) 

/define  CmdOut(val)  (outp(MID_CMD,  MidGbl . CmdPort  «  (int)(val)),  \ 

outp ( MID^CMD ,  MidGbl . CmdPort ) ) 


/* - */ 

/*  Global  variables:  */ 

j* - */ 


MidAqGlobalType  near  MidGbl;  /*  Global  paramater/context  variables  */ 

static  int  near  DmaPageTable(8]  »  f*  Table  of  DMA  page  register  ports  */ 

{  0x87,  0x83,  0x81,  0x82,  -1,  0x88,  0x89,  0x8A  }; 

/*  The  following  global  parameters  are  the  following: 

GH_LIMIT  >  the  number  of  bytes  in  the  global  interferogram  header 
SH_LIMIT  >  the  number  of  points  in  the  subfile  interferogram  header 
FEND 
FRIGHT 
FHOME 
FLEFT 
FINT 
FSPEC 
FSCOL 
FDIFF 
FBACK 
FSEL5 
FSEL6 
FSEL7 
FSEL8 
ROLLL 
ROLLR 


the  key  code  to  exit  the  program 

the  key  code  to  expand  the  interferogram  display 

the  key  code  to  reset  the  interferogram  display 

the  key  code  to  compress  the  interferogram  display 

the  key  code  to  display  interferograms 

the  key  code  to  display  spectra 

the  key  code  to  collect  interferograms  to  disk 

the  key  code  to  display  a  difference  spectrum 

the  key  code  to  calculate  a  background  spectrum 

the  key  code  to  subtract  the  disk  file  fS.fsp 

the  key  code  to  subtract  the  disk  file  f6.fsp 

the  key  code  to  subtract  the  disk  file  f7.fsp 

the  key  code  to  subtract  the  disk  file  f8.fsp 

the  key  code  to  roll  the  display  data  to  the  left 

the  key  code  to  roll  the  display  data  to  the  right 


/*  (W)  Command  register  (OCW2/OCW3)  */ 
/*  (R)  Status  register  (ISR  or  XRR)  */ 
/*  (R/W)  Interrupt  mask  register  */ 

/*  OCH2  (nonspecific)  End-Of-Interrupt  */ 
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PMODE 


the  file  read/write  attributes 


*! 


#define  GH_LENGTH  512 
#define  SH_LENGTH  64 
#define  FEND  79 
#define  FRIGHT  68 
#define  FHOME  71 
#de£ine  FLEFT  67 
#define  FINT  59 
#de£ine  FSEL5  63 
#de£ine  FSEL6  64 
#define  FSEL7  65 
#define  FSEL8  66 
/define  FSPEC  60 
/define  FSCX)L  61 
/define  FDIFF  62 
/define  ROLLL  75 
/define  ROLLR  77 
/define  PMODE  0644 


/*  function  prototype  for  screen 
ITEM  mnuMainl [ ]  « 

{ 

{  0,  "Laboratory"  }» 

<  0,  "Stationary-Ground"}, 

{  0,  "Mobile-Ground"  >, 

{  0,  "Hover-Air"  >, 

{  0,  "Flight-Air"  >, 

{  0,  ""  } 

>; 

ITEM  mnuMain2 [ ]  « 

{  0,  "A«1024  points"  }, 

{  0,  "B«2048  points"  }, 

{  0,  "C»4096  points"  >, 

{  0,  "D*8192  points"  }, 

{  0,  ""  > 


}; 

ITEM  mnuMain3 [ ]  - 

< 

{  0,  "A*M2  jumper"  }, 

{  0,  "B*M1  jumper"  }, 

{  0,  "C»L1  jumper"  >, 

{  0,  "D»2L  jumper"  }, 

{  0,  ""  } 


}; 

ITEM  mnuMain4(]  « 


{  0,  "Yes"  }, 
<  0,  "No"  >, 
{  0,  ""  > 


display  */ 
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> 


main(argc,  argv) 
int  argc; 
char  *argv[]; 

< 

/*  The  following  parameter s  are: 


raw_buf 

- 

the  interferogram  buffer  (real  values) 

apc_bu£ 

• 

the  complex  interferogram  buffer,  also  used  as  a 
vrork  array 

pi 

- 

value  of  the  constant  pi 

scan 

- 

the  scan  number 

index 

- 

an  indexing  variable 

£p2 

- 

file  open  variables 

Ipointa 

- 

number  of  points  in  interferogram  to  display 

spoints 

- 

number  of  points  in  the  spectroim 

ifflode 

- 

O^display  interferogram,  l^display  spectrum 

inode 

- 

set  data  collect  switch 

loop 

- 

graphics  display  page 

wscan 

- 

scan  number  writing  to  disk 

ch 

- 

used  for  an  input 

bkgr 

- 

the  collect  background  flag 

ispts 

starting  spectral  plotting  point  for  difference 
spectrum 

iendp 

* 

ending  spectral  plotting  point  for  difference 
spectrum 

lastpeak 

- 

last  array  position  of  interferogram  center  burst 

extp 

- 

the  input  extension  filename 

drivep 

- 

the  input  drive  filename 

dirp 

- 

the  input  directory  filename 

icount2 

- 

the  index  for  number  of  bytes  to  copy 

outname 

- 

the  global  header  filename 

dirname 

- 

the  input  filename  to  store  to  disk 

idate 

- 

the  array  to  hold  the  date 

itime 

- 

the  array  to  hold  the  time 

res 

- 

the  instrument  resolution 

coll 

- 

data  collection  mode 

itype 

- 

integer  data  type 

speed 

- 

interferometer  scan  speed 

mirror 

- 

interferometer  mirror  movement 

sample 

- 

spectral  wavenumber  sampling  interval 

startf 

- 

starting  wavenumber 

stopf 

- 

ending  wavenumber 

mxwav 

- 

maximum  wavenumber  frequency  that  can  be  sampled 

across 

- 

number  of  sero  crossings  per  sampled  point 

temp 

- 

ambient  temperature 

barp 

- 

barometric  pressure 

humid 

- 

relative  humidity 

wind 

- 

wind  speed 

windd 

- 

wind  direction 

sendir 

- 

sensor  pointing  direction 

precc 

- 

precipitation  code 
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sensid 
ope  mam 

global_header, gh 

scam_header,  sh 

igain 

limit 

slimit 

plimit 

mdist 


array  for  sensor  name 

array  for  operators  name 

the  global  header  structtire 

the  subfile  header  structure 

the  A/D  gain  of  the  interferometer  (0  -  7) 

the  nuxnber  of  interferogreun  points  to  collect 

the  number  of  spectral  points 

the  size  of  the  interferogreun  array 

interferometer  scan  length  in  centimeters 


int  MidAgInitO,  MidAqSetGain  ( )  ,  MenuO; 
void  MidAqStartScan ( ) ; 
int  wrtint  0 ; 

void  dispint 0  ,  dispspecO,  diffspcO,  logoegaO,  getspcO  ; 
int  inode,  wscan,  bkgr,  spoints,  jndex  s  l; 

int  sceui,  index,  imode,  loopsO,  lastpeah,  istps,  iend^,  ichng; 

char  ch,  buffer  [4],  outname[10],  dimame[40],  idate[l0],  itime  [10]  ; 

double  res,  mirror,  speed;  san^le,  startf,  stppf,  barp,  mxwav; 

char  conml [64] ,  comm2 [64] ,  comm3 [64] ,  comm4 [64] ; 

int  coll,  itype,  tenp,  humid,  wind,  windd,  sendir,  precc,  ierr; 

int  fp2,  burst,  zeroes,  maocscan,  igain,  plimit,  slimit,  limit, - 

int  iKainCur  s  0,  iMainCurl  s  0,  iMainCur2  s  0,  iMainCurB  s  0; 

int  iCur  «  0,  iCurl  s  0,  iCur2  s  0,  iCur3  ■  0,  iseunple; 

int  rowMid  «  5,  rowMidl  s  15,  colMid  >  15,  colMidl  s  50; 

char  sensid  [20],  opemam[l0],  extp[4],  drivep[l0],  dirp[l0],  buf  1  [80]  ; 

float  pi,  mdist ; 

extern  float  raw_buf[],  8pc_buf[],  spc_bak[]; 

8ize_t  hdcl,  icount2s20; 
unsigned  long  t0,tl; 
struct  global_header  gh; 
struct  scan  header  sh; 


/*  set  the  maximum  number  of  seems  to  collect  by  em  input  switch  */ 
if  (arge  sb  2) 
maxscan  «  550; 
else 

meocsceui  s  3000; 


/*  ask  the  user  to  input  em  output  data  collection  filename  */ 

_clearscreen  (^GCLBARSCREEN) ; 

printf ( " \nMIDCOL  -  Midac  remote  sensing  data  collection  progreun 
Version  4 .0\n") ; 

printf  ("  \nThe  program  switch  is  set  to  collect  \jp  to  %d  interferogreuns  to 
disk. \n", maxscan) ; 

printf (” \nlnput  the  data  filename  to  store  to  disk:  ") ; 
scemf  ( ”  %s ” ,  dimame ) ; 
hdcl  m  10; 

memset  (&outname,32,hdcl) ; 

_8plitpath  (dimame,  drivep,  dirp,  outname,  extp)  ; 
stzupr  (outneune)  ; 

/*  initialize  the  input  buffers  */ 
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hdcl  s64; 

ineinset(&coinml,32,hdcl)  ; 
memset  ( &coinin2 ,32,  hdcl )  ; 
memset  ( &coinm3 ,32,  hdcl )  ; 
memset ( &comm4 ,32, hdcl ) ; 

printf  ("\nlnput  four  lines  for  comments: Xn") ; 

gets  (ccrnsnl)  ; 

printf  (">>") ; 

gets  (comml) ; 

printf  ("»")  ; 

gets  (camm2) ; 

printf  ("»")  ; 

gets  (comm3) ; 

printf  (">>"); 

gets  (comm4) ; 

/*  select  the  interferometer  parameters  from  the  display  screen 
_setvideomode (_DEFAULTMODE) ; 

_Betbkcolor(  (long)_TBLUE) ; 
relook : 

_clearscreen (  _GCLEARSCREEN) ; 

_8ettextposition  (2,6); 

_outtext ( "Data  collection  mode  ?") ; 

iMainCur  =  Menu(  rowMid,  colMid,  mnuMainl,  iCur) ; 

_8ettextposition  (2,41); 

_outtext ("Number  of  points  to  collect  ?") ; 
iMainCurl  a  Menu(  rovdlid,  colMidl,  mn\iMain2,  iCurl)  ; 
^eettextposition  (12,3); 

_outtext ( "Midac  sanpling  junper  setting  ?") ; 
iKainCur2  <r  Menu(  rowMidl,  colMid,  mnuMain3,  iCur2)  ; 

/*  set  the  input  user  parameters  for  the  interferometer  */ 
switch  (iMainCur) 

{ 

case  0: 
coll  =  0; 
break; 
case  1 : 
coll  =  1; 
break; 
case  2 : 
coll  -  3; 
breeds; 
case  3 : 
coll  «  4; 
break; 

} 

switch  (iMainCurl) 

{ 

case  0: 

limit  m  1024; 
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break; 
case  1: 

limit  -  2048; 
break; 
case  2: 

limit  ■  4096; 
break; 
case  3t 

limit  «  8192; 
break; 

} 

plifflit  «  limit; 

elimit  «  1  +  (limit/2); 


switch  (iMainCur2) 

{ 

case  0: 
zeroes  «  800; 
break; 
case  1: 
zeroes  ■  400; 
break; 
case  2: 
zeroes  «  200; 
break; 
case  3: 
zeroes  «  100; 
break; 

> 


for  the  inter ferogram  header  */ 
/*  starting  wavenumber  */ 
laser  wavenumber  */ 
ending  wavenumber  */ 
sampling  wavenumber  */ 


/*  find  the  sampling  parameters 
start f  ■  0.0; 
mxwav  -  15798.0; 

stopf  -  auewav  /(float) (zcross/100) ; 
sample  •  stopf/( (float) (limit/2) ) ; 
isample  ■  (int) (2*sample+l) ; 
res  >  (float) (isample) ; 
mdist  ■  ((float) (limit*zcroas))/(mxwav*2.0); 

/*  interferometer  scan  length  in  centimeters  */ 


/* 

/* 

/• 


/•  instruBwnt  resolution  */ 


/*  notify  the  user  of  the  selected  interferometer  parameters  */ 
_settextposition  (20,20); 

_outtext ( " start ing  wavenumber* " ) ; 

^settextposition  (20,40); 
sprintf (buf 1 , "%10 . 4f " , start f ) ; 

^outtext (buf 1 ) ; 

_settextposition  (21,20); 

'outtext  ( "ending  wavenuoiber*" ) ; 
sprintf (buf 1, "%10. 4f", stopf ) ; 

^settextposition  (21,40); 

^outtext ( buf 1 ) ; 
settextposition  (22,20); 
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_outtext ( "sampling  wavenumber-" ) ; 
sprintf(bufl,"%10.4£", sample) ; 

_settextposition  (22,40); 

_outtext (buf 1 ) ; 

_settextposltion  (23,20); 

_outtext ( "resolution-" ) ; 
sprint£(bufl,"%10.0f",res) ; 

_settextposition  (23,40); 

_outtext ( buf 1 ) ; 

_settextposition  (24,20); 

_outtext("zero  crossing  sampling-"); 

_settextposit ion  (24,49); 
isample  -  xcross/100; 
sprintf (bufl, "%d", isample) ; 

_outtext (buf 1 ) ; 

/*  ask  the  user  if  all  of  the  input  is  OK  */ 
_settextpo8ition  (12,43); 

_outtext("All  answers  correct  ?"); 

iMainCur3  -  Menu(  rowMidl,  colMidl,  mnuMain4,  iCur3); 
switch  ( iMainCur3 ) 

{ 

case  0: 

break; 
case  1: 
goto  relook; 
break; 

> 


/*  set  up  the  graphics  mode  and  clear  screen  */ 
_setvideomode  (_ERESCOLOR) ; 

_di8playcur8or (  _GCURSOROFF ) ; 

_setbkcolor  (_BLUE); 

_8ettextpo8ition  (13,  20); 

_outtext  ("Please  Wait  —  Initializing  Interferometer"); 

/*———— —create  the  global  header— ——————— 

/*  create  a  new  global  header  */ 

/*  clear  the  global  header  buffers  with  blanks  */ 
hdcl-512; 

memset  (6gh,32,hdcl) ; 
hdcl  -  64; 


/*  initialize  the  default 
itype  -  1; 
temp  -  0; 
barp  -  0.0; 
humid  -  0; 
wind  -  0; 
windd  -  0; 
sendir  -  0; 


global  header  data  parameters 
/*  integer  data  type  */ 

/*  ambient  temperature  */ 

/*  barometric  pressure  */ 

/*  relative  humidity  */ 

/*  wind  speed  */ 

/*  wind  direction  */ 

/*  sensor  direction  */ 


*/ 
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precc  >0;  /*  precipitation  code  */ 

atrcpy  (sensid, "MIDAC  unit  #120  ");  /*  set  the  sensor  name  */ 

strcpy  (opernam, "  ");  /*  blank  out  the  operators  name 


/* - 

/*  stuff  in  the  integer  and  double  header  information  into 
the  correct  locations  */ 

gh.collect_mode  ■>  coll; 
gh.integer_type  >  itype; 
gh.scan_size  «  limit; 
gh. resolution  >  res; 
gh.sample_freq  >  sample; 
gh.start_freq  -  startf; 
gh.stop_freq  -  stopf; 
gh.max_wav  *  mxwav; 
gh.zercross  >  zcrose; 
gh.ambient_temp  >  temp; 
gh.bar_pre88ure  >  barp; 
gh. humidity  •  humid; 
gh.wind_8peed  >  wind; 
gh.wind__direction  >  windd; 
gh.aenaor^^direction  »  aendir; 
gh.precip_code  «  precc; 

/*  copy  the  senaor  id  •/ 
icount2  *  20; 

memcpy  (firgh.een8or_id,  fieenaid,  icount2); 

/*  copy  the  comment  field  */ 
icount2>64; 

memcpy  ( 6gh .  cotnml ,  &comml ,  icount2 ) ; 
memcpy  ( £gh . comm2 ,  &cofflm2 ,  icount 2 ) ; 
memcpy  ( 6gh . comm3 ,  &comm3 ,  icount2 ) ; 
memcpy  (6gh.comm4,  &comm4,  icount2); 

/*  find  the  atarting  date  and  time  */ 

_ntrtime  ( it ime ) ; 
icount2  "10; 

memcpy  (figh.start_time,  fiitime,  icount2); 

^strdate  ( idate ) ; 

memcpy  (figh.date,  ftidate#  icount2); 

/*  input  the  operators  name  */ 

aiemcpy  (6gh. operator,  fiopernam,  icount2); 

/*  input  the  filename  into  the  header  */ 
memcpy  (figh. filename,  Soutname,  icount2); 

if  (fp2  ■  creat  (dirname,  PMODE)  <  0  ) 

{ 
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_8et videomode  (_DEFAULTMODB) ; 

printf  ("XiiX^MIDCaLX"  is  unable  to  create  %BXn",dlrnaffle) ; 
exlt(2) ; 

} 

if  ((fp2  *  open  (dirname,  0_vmONLy Iq^BINARY) )  <  0) 

{ 

_8et V ideomode  ( JDEFAULTMODE ) ; 

printf  ( "XnX"MIDCOLX"  is  unable  to  open  %8Xn”,dirname) ; 
exit (2) ; 

} 

/*  write  the  global  header  information  * j 
write  (fp2,  &gh,  GH_LENGTH); 


/*  aet  the  parameter  valuea  for  data  collection  */ 

the  value  of  pi  */ 

O^diaplay  interferogram  ;  l>di8play  apectrum  */ 
the  8tarting  point  to  dieplay  */ 
the  ending  point  to  dieplay  */ 
the  diaplay  number  of  pointa  to  roll  acreen  */ 
aet  the  maximum  point  number  to  roll  acreen  */ 
wacan  >1;  !*  initialize  number  of  acana  written  to  diak  */ 

determinea  atatua  of  diak  file  */ 
bkgr  >1;  /*  aet  the  background  flag  to  collect  */ 

acar.  -  -1;  /*  initialize  the  acan  data  collection  value  «/ 

have  the  gain  initialize  to  initial  value  */ 


tan(l. ); 

/* 

0; 

/* 

1; 

/* 

400; 

/* 

50; 

/* 

■  limit; 

/* 

1; 

/* 

0; 

/* 

1; 

/* 

-1; 

/* 

-1; 

/* 

/*  Thia  ia  the  main  loop  for  data  collection  to  proceed  */ 


/*  initialize  the  interferometer  with  acanning  parametera  */ 
index  >  MidAqInit(  ->1/  -1,  igain,  plimit); 
if  (index) 

{ 

_8etvideomode  (_DEFAULTMOOE) ; 

printf ("Error:  MidAqInit  returned  %dXn",  index); 
exit  (2); 

> 

/*  printf ("MidCol  initialized: Xn" ) ; 

printf ("  DMA  Buffer  at  %Fp  >  %061XXn",  MidGbl.DmaBuf fer, 
PtrToLong(MidGbl.DmaBuf fer ) ) ;  */ 


/*  check  the  acan  rate  and  atore  value  in  the  header  buffer  */ 
to  «  (unaigned  long)clock( ) ; 

MidAqStartScan ( ) ; 
while  ( IMidGbl.DmaOone) 

{ 

tl  ■  (unaigned  long)  clock(); 

if  ((tl-tO)  >  (unaigned  long)  (TIMEOUT  *  CLOCKS  PER_SBC) ) 

{ 

_8etvideomode  (_DEFAULTMODE) ; 

printf ("■■*>  ERROR  -  no  aignal  from  interferometer  <***"); 
exit  (2); 
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> 

MldGbl.DmaActive  *  0; 

■peed  -  1.0/( (float) (tl-tO)/(float)CLOCKS_PER_SEC)| 
mirror  >  mdist  *  speed; 
gh.scan_epeed  >  speed; 
gh.mlrror_velocity  ■  mirror; 


/*************** . * . ****** . . . **************/ 

/******* . . . . . . 

/*  check  the  instrument  gain  —  if  too  low,  then  increase  gain 

if  too  high,  then  decrease  gain  */ 

/*  igain++; 


MidAqStartScan( ) ; 

to  ■  (unsigned  long)clock( ) ; 

while  ( INidGbl.OmaDone) 

{ 

tl  >  (unsigned  long)clock( ) ; 

if  ((tl-tO)  >  (unsigned  long)  (TIMEOUT  *  CLOCKS  PER_SEC) ) 

_set V ideomode  ( _DEFAULTMOOE ) ; 

printf ("Error:  Timeout  on  DMA  c«npletion\n" ) ; 

exit  (2); 

> 

> 

MidGbl.DmaActive  *0; 

for  (index*0;  index  <  limit-1;  index-«"f) 

raw_buf(  index-*- 1]  ■  (float)  MidGb l.DmaBuffer[ index ] ; 

burst  ■  fburst(raw_buf,liffiit-l); 

while (fabs(raw_buf (burst) )  <>  16384.  6&  igain  <>  7) 

{ 

raw^buf [burst]  *«  2.; 
igain  -*—1; 

} 

MidAqSetGain ( igain ) ; 

printf ("....  setting  the  instrument  A/D  gain  to  *  %d", igain); 

MidAqStartScan ( ) ; 

to  >  (unsigned  long)clock( ) ; 

while  ( IMidGbl.DmaOone) 

{ 

tl  >  (unsigned  long)clock( ) ; 

if  ((tl-tO)  >  (unsigned  long)  (TIMEOUT  *  CLOCKS  PER_SEC)) 

{ 

_setv ideomode  (_DEFAULTMODE) ; 

printf ( "Error:  Timeout  on  DMA  completion\n" ) ; 

exit  (2); 

) 

) 

MidGbl.DmaActive  -  0;  */ 


/*  loop  to  collect  interferogram  data  */ 
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tloop: 

■can-t-t-; 

/•  raad  in  tha  Interfarogram  data  from  the  interferometer  */ 
MidAqStartScan ( ) ; 
to  ■  (unsigned  long)  cIock()} 
while  ( iMidCbl.DmaOone) 

{ 

tl  «  (unsigned  long)  cloc)c(); 

if  ((tl-tO)  >  (unsigned  long)  (TIMEOUT  *  CLOCKS_PBR_SBC) ) 

{ 

_setvide(Mnode  (_OEFAULTMODE) ; 

printf ("Error:  Timeout  on  DMA  cofflpletion\n" ) ; 

exit  (2); 

} 


/* - select  user  mode - */ 

if  ()cbhit()  1«  0)  /*  check  to  see  if  a  key  was  pressed  */ 

{ 

eh»getch ( ) ; 

if  (ch  ■■  FEND)  /*  exit  progrun  */ 

if  (inode  »  1)  /*  if  writing  to  disk  update  global  header  */ 
{ 

Iseek  (fp2,  OL,  0);  /*  rewind  the  file  to  write  header  */ 
gh.stop^scan  •  wscan  -  1;  /*  insert  the  number  of  scans  in 

header  */ 

_strtime  (itime);  /•  input  the  ending  time  into  header  */ 
memcpy  (&gh.stop_tiine,  Sitime,  icount2); 
write  (fp2,  6gh,  GH^LENGTH) ;/*  write  global  header  */ 
close  (fp2); 

> 

_setvideomode(_DEFAULTMODE) ; 
oxit(l); 

} 

if  (ch  «*  FRIGHT)  /*  expand  screen  display  */ 

{ 

iendp  >  iendp  -  ichng; 
istps  <B  istps  *  ichng; 
if  (istps  >*  iendp) 

{ 

istps  *  istps  -  ichng; 
iendp  *  iendp  +  ichng; 

> 

} 

if  (ch  FLEFT)/*  contract  the  screen  display  */ 

{ 

iendp  >  iendp  *  ichng; 

istps  >  istps  -  ichng; 

if  (istps  <  1  )  istps  >1; 

if  (iendp  >  spoints)  iendp  «  spoints; 

} 
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if  (ch  «  ROLLR)  /*  roll  the  data  to  the  right  */ 

{ 

iendp  »  lendp  •*  Ichng; 
iatpa  «  Istps  -  ichng; 
if  (iatps  <  1  ) 

{ 

iatpa  «  1; 

iendp  «  iendp  ichng; 

> 

> 

if  (ch  ROLLL)  /*  roll  the  data  to  the  left  */ 

{ 

iendp  *  iendp  *  ichng; 
iatpa  «  iatpa  +  ichng; 
if  (iendp  >  apointe) 

{ 

iendp  s  spoinLi); 
iatpa  -s  apoLnta  -  ichng; 

} 

} 

if  (ch  *«  PINT)/*  display  interferogram  */ 

{ 

iinode^O; 
iatpa  =1; 
iendp  «  400; 
spoints  *  limit; 

} 

if  (c.h  «  FSPEC)/*  display  spectxTim  */ 

{ 

imode=l; 

istps  si; 

iendp  s  slimit  -  1; 

apointas  iendp; 

if  (ch  -«  FSCOL)  /*  set  disk  data  collection  turned  on  */ 

{ 

imode  *2; 
inode  s  1; 

} 

if  (ch  -■  FDIFF)  /*  display  the  difference  spectrum  •/ 

{ 

imode  >3; 
bkgr  *  1; 

iatpa  *  (int) ( (float )slimit  *  181.  /  512.); 
iendp  »  (int) ( (float) slimit  •  363.  /  512.); 
spointa  >  slimit; 

if  (ch  ■»  FSEL5  ! I  ch  *-  FSEL6  | {  ch  FSBL7  j |  ch  -■  FSEL8) 

imode  *  3; 
bkgr  *  0; 

istps  ®  (int) ( (float )slimit  •  181.  /  512.); 
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landp  >  (int)  ( (float )sliinit  •  363.  /  512.); 

spointa  >  sliinit; 

getspc  (8pc_bak,  spointa,  ch); 

> 

if  (ch  >«  PINT  &&  ch  <  FLEFT) 
jndex  >  (int)  ch  -  58; 

} 

/*  return  to  check  the  keyboard  if  the  scan  is  not  finished  */ 

> 

/* - */ 

MidGbl.DmaActive  *0; 

/*  convert  the  integer  array  to  an  ungain  ranged  floating  array  */ 
for  (index  >  0;  index  <  limit;  index++) 

raw_buf  [index-t-l]  ■  (float)  MidGbl.OmaBuffer[ index]  ; 

raw_buf [ 0 ] >0 . 0 ; 

8pc_buf (0]«0.0; 

/*  set  up  the  graphics  to  plot  */ 
loop  >  loop  1; 

_8etact ivepage ( loop) ; 

_clear8creen(_GCLEARSCREEN) ; 

__setvieworg  (0,0); 

logoega(2,12) ; 

_setvieworg(64, 175) ; 

/*  do  the  correct  math  operation  for  each  selection  */ 

/*  display  the  interferogram  to  the  screen  * j 
if  (imode  »  0) 

dispint  (raw_buf,  istps,  iendp,  imode,  scan,  jndex); 

/*  display  the  spectrum  to  the  screen  */ 
else  if  (imode  »  1) 

dispspec  (raw_buf,  8pc_buf,  limit,  istps,  iendp,  pi,  imode,  scan,  sample 
jndex) ; 
else  if  (imode  2) 

/*  exit  data  collection  if  too  many  interferograms  have  been  collected  */ 
if  (wscan  >  maxscan) 

{ 

Iseek  (fp2,  OL,  0);  /*  rewind  the  file  header  */ 

gh.stop_acan  »  wscan  -  1;  /*  insert  the  number  of  scans  in  header  */ 
_strtime(itime) ;  /*  get  the  ending  time  to  put  into  header  */ 
memcpy  (£gh.stop_time,  Sitime,  icount2); 

write  (fp2,  ftgh,  GH_LENGTH);  /*  write  the  global  header  */ 
close ( fp2 ) ; 

_setvideomode(_DEFAULTHODE) ; 
exit (2); 

} 

/*  write  the  interferogram  to  the  disk  */ 

lastpeak^wrtint  (raw_buf,  limit,  wscan,  lastpeak,  outname,  dirname. 
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fp2); 


w«can++; 

} 

!*  writs  the  difference  spectrum  to  the  screen  */ 

{ 

diffspc  (raw^buf,  apc^buf,  apc_bak,  pi,  bkgr,  imode,  ietps, 
iendp,  scan,  limit,  sample,  jndex); 
bkgr*0; 

} 

/*  loop  to  get  more  data  */ 

^setvisualpage ( loop) ; 
goto  tloop; 


} 

y************************  end  of  program  HIDCOL  *********************/ 
y ******************** ****f unction  dispint  ***************************/ 


/*  DISPINT 

This  routine  will  display  the  interferogram  on  the  screen  for  the 
real-time  data  collect  option 

routines  called: 

draw__axis  -  draw  an  axis  to  the  screen 

plotr  -  plot  the  interferogram  on  the  screen 

- */ 

void  dispint  (raw^buf,  istps,  iendp,  imode,  scan,  jndex) 

/*  The  following  global  parameters  are  : 

raw_buf  -  the  interferogram  data  points  to  display 

imode  -  the  plotting  mode  to  display  Osinterferogram  display 

istps  -  the  starting  point  to  display 

iendp  -  the  ending  point  to  display 

scan  -  the  scan  number  of  the  interferogram 

jndex  -  the  menu  number  to  display  on  the  screen 

*/ 

float  raw_buf [ ] ; 

int  istps,  iendp,  imode,  scan,  jndex; 

< 

void  draw_axis ( ) ,  plotr ( ) ; 
int  i; 

long  int  max_val«0,  min_val«0,  pktopk; 
char  buffer[5]; 

/*  find  the  peak  to  peak  value  of  the  interferogram  */ 
for  (I  «  istps;  i  <  iendp;  i.**) 

{ 

aiax^val  «  max  (MidCbl.DfflaBuffer[i},max^val) ; 
min__val  >  min  (MidGbl.DmaBuffer[i] ,min  val); 
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} 

pktopk  «  max_val  -  inin_val; 

/*  plot  tha  Intarfarograin  data  to  tha  acraan  */ 
draw_axi8  ( scan , imoda ) ; 
plotr  (raw_buf,  istps,  landp,  imoda); 

^sattaxtposition  (  2,  54); 

__outtaxt  ( "paak-to-paak  ■  "); 

_sattaxtposition  (  2,  70); 
sprlntf  (buf far, "%51d", pktopk) ; 

_outtaxt(buffar) ; 

_sattaxtpositlon  (3,  2); 
sprlntf  (buffer, "%5d",max_val); 

_outtext (buffer ) ; 

_sattaxtposltlon  (23,  2); 
sprlntf  (buffer, *%5d",mln_val) ; 

_outtaxt (buf far) ; 

_settextpo8ltlon  (24,  10); 
sprlntf  (buf far, "%Sd", Istps) ; 

_outtaxt (buffer ) ; 

_aettextposltlon  (24,70); 
sprlntf  (buffer, "%Sd", landp) ; 

_outtext (buffer) ; 

^settextposltlon  (1,2); 

_outtaxt("F") ; 

sprlntf  (buffer,"  %ld",jndax); 
outtaxt  (buffer) ; 

)” 

/************************end  of  displnt  ***************************** / 
/************************ function  dlspspec  **************************/ 
/*  DXSPSPEC 

This  Is  the  spectral  display  routine.  This  routine  will 
Fourier  transform  and  display  each  collected  Inter ferograro. 

routines  called: 

cmpfft  -  Fourier  transform 

plotr  -  plot  spectrum  to  screen 

draw  axis  -  draw  the  axis  to  the  screen 


- */ 

void  dlspspec  (raw_buf,  apc_buf,  limit,  Istps,  landp,  pi,  Imode,  scan,  sample, 
jndex) 

/*  The  following  global  variables  are: 

raw_buf  *>  the  collected  Inter ferogr am  buffer 
Bpc_buf  -  the  fourler  transformed  spectral  buffer 
limit  *>  the  number  of  points  to  transform 
Istps  **  the  starting  point  to  display 
lendp  -  the  ending  point  to  display 
pi  >  the  value  of  PI 

imode  -  the  display  mode;  1  <■  spectral  buffer 
scan  -  the  scan  number  to  display 
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•ample  -  the  sampling  point  spacing  in  wavenumbers 
jndex  -  the  menu  option  to  display  on  the  screen 

*! 

float  raw_buf[],  •pc_buf(],  pi,  sample; 
int  istps,  iendp,  imode,  scan,  limit,  jndex; 

void  cmpf f t ( ) ,  plotr ( ) ,  draw_axis ( ) ; 

float  minx_val,  aiaxx_val,  miny_val  •  0.0,  Hiaxy_val  ■  0.0; 
int  i; 

char  buffer [6]; 

/*  do  the  fourier  transform  */ 

cmpf ft  (raw_buf,  spc_buf,  limit,  pi); 

/*  find  the  maximum  and  minimum  values  for  the  plotted  spectrum  */ 
minx_val  «  sample  *  ( istps-1 ) ; 
maxx_val  «  sample  *  iendp; 
for  (i>  istps;  i  <  iendp;  i-t-4-) 

maxy_val  >  max  (raw_buf(i],  maxy_val); 

/*  plot  the  spectrum  data  to  the  screen  */ 
draw_axis  ( scan , imode ) ; 
plotr  (raw_buf,  istpa,  iendp,  imode); 

^•ettextposition  (  3,  1); 

•printf  (buffer, "%6. Of ",maxy_val) ; 

_^outtext  (buffer ) ; 

__settextposition  (  23,  1); 

•printf  (buffer, "%6. Of", miny_val) ; 

_outtext  (buffer); 

^•ettextposition  (  25,  5); 

•printf  (buffer, "%6.0f " ,minx_val) ; 

^outtext  (buffer); 

_settextposition  (  25,  70); 

•printf  (buffer, "%6. Of ",maxx_val) ; 

_outtext  (buffer ) ; 

_settextpo8ition  (1,2); 

_outtext ( "F" ) ; 

•printf  (buffer,"  %ld",  jndex); 

__outtext  (buffer); 

T 

/************************0nd  of  dispspec  ***********•*******•********/ 
/*****************««*«***function  %nrtint  ♦•*••****•**•***** ******•***/ 
/*  WRTINT 

This  routine  will  write  an  interferogram  to  the  disk, 
routines  called: 

errcod  -  find  the  interferogram  error  code 

f burst  -  find  the  interferogram  centerburst 

- */ 

int  wrtint  (raw_^buf,  limit,  wscan,  lastpeak,  outname,  dirname,  fp2) 
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/*  The  following  global  parameters  are: 
raw_bu£  -  the  interferogram  collected  on  the  Midac 
limit  -  the  number  of  points  in  the  array  buffer 
wscan  -  the  last  interferogram  nummber  written  to  disk 
lastpeak-  the  last  interferogram  burst  position 
outname  -  the  header  name  to  store 
dimame  -  the  directory  name  to  store  to  disk 
fp2  -  file  pointers  for  disk  I/O 
*/ 

int  wsceui,  limit,  lastpeak,  fp2; 

float  raw_buf  []  ; 

char  dimame  [] ,  outname  []  ; 

{ 

int  errcodO  ,  fburstO;  • 
int  burst,  ercod; 
size_t  hdcls64,  icount2=10; 
char  itime [10] ,  buffer[4]; 
struct  scan_header  sh; 
struct  global_header  gh; 

f*  initialize  the  subfile  header  information  */ 

memset  (&sh,  32,  hdcl) ;  /*  initialize  the  subfile  header  buffer  */ 

burst  =  f burst  {raw_buf ,  limit) ;  /*  find  the  center  burst  */ 
if  (wscan  1) 
lastpeeUc  «  burst; 

8h.scan_number  »  wscan;  /*  insert  the  scan  ntunber  */ 

sh.peak_location  «  burst;  /*  centerburst  position  */ 

sh.gain  x  MidGbl .GainVal;  /*  interferogram  A/D  gain  */ 

sh. coadd  >  1;  /*  set  the  number  of  coadded  interferogreuns  */ 

ercod  =  errcod  (raw_buf,  limit,  burst,  lastpeeUc) ; 

sh. error  *  ercod;  /*  interferogram  error  code  */ 

lastpeak  «  burst;  /*  set  the  last  peak  position 

for  the  centerburst  */ 

f*  put  the  header  name  into  the  source  filename  field  */ 
memcpy  (&8h. filename,  &outname,  ico\mt2} ; 

/*  find  the  scan  time  to  put  into  the  header  */ 

_strtime  (itime) ; 

memcpy  (&sh.scan_time,  &itime,  ico\int2) ; 

/*  write  the  interferogram  to  disk  */ 

/*  write  the  subfile  header  information  */ 
write  (fp2,  &sh,  SH_LENGTH) ; 

/*  %rrite  the  interferogram  data  to  disk  */ 
write  (fp2,  MidGbl .DmaiBuffer,  limit*2)  ; 

/*  display  the  information  the  the  screen  */ 

_8ettextposition (  12,  20); 

_OUttext( "COLLECTING  INTERFEROGRAM  DATA  TO  DISK") ; 

_settextpo8ition(  14,  20); 
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_outtext(" filename  «  "); 

_aettextpo8itlon(  14,  32); 

_outtext(dirnaine) ; 

_8ettextpOBition(  16,  20); 

_outtext("  inter  ferogr am  number  «  **); 

_settextpoeition(  16,  44); 
sprintf  (buffer,  "%04d",  wecan); 

^outtext  (buffer); 

_aettextpo8ition  (  18,  20); 

_outtext( "error  code  ■  ■); 

_8ettextpo8ition  (  18,  33); 
eprintf  (buffer,  "%01d",  ercod); 

_outtext  (buffer); 
return  (laetpealc) ; 

> 

/•••******************«**«nd  of  wrtint  ******************************/ 
y************************£unction  diffepc  ***************************/ 
/*  DIFFSPC 

Thi8  routine  will  dieplay  a  difference  apectrum  to  the  acreen. 
routinea  called: 

cmpfft  -  Fourier  tranaform 

normal  -  normalize  a  apectral  buffer 

plotr  -  plot  a  apectral  buffer  to  the  acreen 

draw^axia  >  plot  the  axia  labela  to  the  acreen 

- */ 

void  diffapc  (raw_buf,  apc^buf,  apc^bak,  pi,  bkgr,  imode,  aatart, 
aend,  acan,  limit,  aample,  jndex) 

/*  The  following  parametera  are: 

raw__buf  -  real  array  of  interferogram  valuea 
8pc_buf  -  real  array  of  apectral  valuea 
8pc__bak  -  real  array  of  apectral  background  valuea 
pi  -  the  value  of  pi 

bkgr  -  the  background  computation  awitch 
imode  -  the  data  diaplay  mode 

aatart  -  the  atarting  point  to  plot  the  difference  apectrum 
aend  -  the  ending  point  to  plot  the  difference  apectriun 
limit  -  the  interferogram  array  aize 
aample  -  the  aampling  point  increment  (wavenumbera) 
jndex  -  the  menu  option  number  to  diaplay  on  the  acreen 

V 

float  raw_buf{],  8pc_buf(],  8pc_bak(],  pi,  aample; 
int  bkgr,  imode,  aatart,  aend,  acan,  limit,  jndex; 

{ 

void  cmpfftO,  nomuilO,  plotr(),  drawr_axi8 ( ) ; 
float  minx^val,  maxx_val,  miny_val>0.0,  maxy_val*0.0; 
int  index; 
char  buffer [6]; 
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If  (bkgr  »  1) 

{ 

cmpfft  (raw_buf,  ■pc_buf,  limit,  pi)i 
/*  normal  (raw_buf,  apoints)!  */ 

for  (index>l;  index  <«  limit/2;  indext-f) 
ape  ba)c( index-1]  •  raw_buf (index) ; 

} 

elae 

{ 

cmpfft  (raw_buf,  epc_buf,  limit,  pi); 

/*  normal  (raw_buf,  apointe);  */ 

for  (index*  aatart;  index  <  aend;  index-f-f) 

{ 

raw_buf [ index ] *ravi_buf [ index] -npc_bak[ index-1 ] ; 
miny_val  *  min  (raw_buf [index] ,  miny_val); 
maxy_val  *  max  (raw_buf [index],  ataxy_val); 

} 

draw_axi8(  acan,  imode); 

plotr  (raw_buf,  aatart,  aend,  imode); 


/ 

/ 


Thin  routine  will  Fourier  tranaform  an  inter ferogram.  The  program 
will  rotate  the  interferogram  and  tranaform.  No  phaae  correction 
or  apodization  ia  done.  Thin  routine  in  to  be  only  uaed  for 
real-time  diaplay  where  phaae  and  apodization  functiona  are  not 
abnolutely  required.  Do  not  uae  thie  routine  for  data  analyaia. 

routinea  called: 


/*  annotate  the  acreen  with  the  diaplay  ranges  */ 
minx_val  *  sample  *  ( sstart-1 ) ; 
maxx_val  «  sample  *  aend; 

__settextposition  (  3,  1); 
sprintf  (buffer, "%6. Of ",maxy_val) ; 

_outtext  (buffer); 

_settextposition  (  23,  1); 
sprintf  (buffer, "%6.0f ",miny_val) ; 

^outtext  (buffer); 

_settextpo8ition  (  25,  5); 
sprintf  (buffer, "%6.0f " ,minx_val) ; 

_outtext  (buffer); 

_settextpo8ition  (  25,  70); 
sprintf  (buffer, "%6.0f",maxx_val) ; 

_outtext  (buffer) ; 

_aettextposition  (  1,  2); 

”outtext("F"); 

sprintf  (buffer,"  %ld",  jndex); 

_outtext  (buffer); 

} 

> 


/•••••*******************0nd  of  diffspc 
/************************f unction  cmpfft 


/*  CMPFFT 
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rotate 

burst 

rfft 


-  rotates  an  interferogram  buffer 

-  finds  the  centerburst  of  an  Interferogram 

-  calculates  the  Fourier  transformation 


- */ 

void  cmpfft  (raw_buf,  spc^buf,  ipoints,  pi) 

/*  The  following  global  parameters  are: 

raw__buf  -  a  trark  array  used  for  transformation 

8pc_buf  -  an  array  containing  the  complex  values  of  the  transformation 
Ipoints  -  number  of  points  in  interferogram  array 
pi  -  value  of  pi 

*/ 

float  raw_buf[],  spc_buf(],  pi; 
int  ipoints; 

{ 

/*  The  following  local  parameters  are: 
i,j, index  -  indexing  variables 

burst  -  value  containing  the  index  of  the  inter ferograiii  ;.'enterburst 

*! 

void  rf ft ( ) ,rotate( ) ; 

int  f burst ( ) ; 

int  i,  j,  index,  burst; 

for  (i*l;  i  <*  ipoints;  i++) 
spc_buf(i]  ■  raw_buf[i]; 

/*  find  the  center  burst  of  the  interferogram  */ 

/*  printf  ("to  burst\n");  */ 

/*  printf  ("raw_buf [50]-  %10.5f\n-,raw_buf [50] ) ;  */ 
burst-fburst (spc^buf , ipoints) ; 

/*  printf  ("after  burat\n");  */ 

f*  rotate  the  interferogram  for  the  FFT  */ 

/*  printf  ("to  rotate\n");  */ 

rotate(burst,  spc_buf,  raw_buf,  ipoints); 

/*  printf  ("after  rotate\n");  */ 

/*  Fourier  transform  the  interferogram  */ 

/*  printf  ("to  rfft\n");  */ 

for  (i-1,  j-1;  j  <■  ipoints;  i-*— 2,  j++) 

{ 

spc__buf[i]  »  raw_buf[j]; 
spc_buf [i+l]  ■  0.0; 

f*  printf  ("spc_buf [%04d]-%10.5f\n",i,spc_buf [i] ) ;*/ 

/•  printf  ("spc_buf(%04d]-%10.5f\n",i+a,spc_buf[i+l]);  */ 

> 

rfft(spc_buf ,  ipoints,  pi); 

/*  printf  {’’mtfr  rfft\n");  */ 

/*  compute  the  power  spectrum  */ 

/*  printf  ("to  power  spectrum  calculation\n" ) ;  */ 
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for  (  i«l,  j«0  ;  i  <■  ipoints  ;  i+»2,  j++) 

{ 

raw_bu£[ j ]■  aqrt (8pc_bu£(i]*8pc_bu£(i)+8pc_bu£[i+l]*spc_bu£li+l] ) ; 
/•  printf  ("raw_bu£(%04dl*%10.5£\n",J,raw_bu£[j])»  */ 

} 

/*  printf  ("after  power  apectrum  calculation\n") ;  */ 

> 

/***********************  ,nd  of  CMPPFT  ******************************/ 
/**************«********  function  rfft  ******************•***********/ 
/*  RFFT 

Thia  routine  will  compute  the  Fourier  transform  using  the  method 
originally  written  by  N.  Brenner  of  Lincoln  Laboratories 

routines  called: 

NONE 


- */ 

void  rfft  (8pc_buf,  ipoints,  pi) 

/*  The  following  global  parameters  are: 

spc_buf  -  the  interferogram  values  stored  in  complex  form 
ipoints  -  number  of  points  in  interferogram 
pi  o  value  of  pi 

*/ 

float  spc_buf ( ] ,  pi ; 
int  ipoints; 

{ 

int  i,  n,  istep,  j,  mmax,  m; 

float  wsin,  theta,  tempr,  tempi,  wr,  wi,  %/temp,  wpr,  wpi; 

n>  2  *  ipoints; 

/*  bit  reversal  section  */ 
for  (i“l;  i  <*  n  ;  i+=2) 

{ 

if  (j  >  i) 

{ 

/*  Note:  several  statements  have  been  commented  out  for  the  case 

where  input  imaginary  values  are  always  aero.  If  this  is 
not  true,  then  these  statements  must  be  used. 

*1 

tempr  ■  spc_buf ( j ] ; 

/*  tempi  ■  spc_buf ( j+l] ;  •/ 

spc_buflj]  ■  spc_buf(i]; 

/*  spc_buf(j+l]  ■  spc_buf (i+lj;  */ 

spc_buf(i]  -  tempr; 

/*  spc  bufti-fl)  ■  tempi;  */ 

> 

mBn/2 ; 

while  (m>*26&j>m) 

{ 

j-j-m; 
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m«m/2 ; 

} 

j-j+m; 

> 

/*  cooput*  the  butterflies  •/ 
iiimax-2; 

while  (  n  >  mmax  ) 

< 

istep»  2  *  mmax; 

theta  *  2.0  *  pi  /(float)mmax; 

wsin  -  8in(0.5  *  theta); 

%#pr  ■  -2.0*w8in*w8in; 
vpL  «  sin(theta); 
wr  a  1.0; 
wi  a  0.0; 

for  (m«l;  m  <a  mmax;  m+«2) 
i 

for  (iam;  i  <>  n;  iai+istep) 

{ 

jai<fmmax; 

tempr  a  wr*Bpc_buf (3 J  -  wi*epc__buf I J+1] ; 
tempi  a  wr*8pc_buf [ j+1]  +  wi*8pc^buf [ j ) ; 

8pc_^buf(j)  a  8pc_buf[il  -  tempr; 

8pc_buf[j+l]  a  8pc_buf(i+lj  -  tempi; 

8pc_buf(i)  a  Bpc_buf(i)  ♦  tempr; 
epc  buf[i-»-l]  a  8pc  buf(i4'i]  +  tempi; 

} 

wtemp  a  wr; 

wr  a  wr*wpr  -  wi*wpi  +  wr; 
wi  a  wi*wpr  +  wtemp*wpi  +  wi; 

) 

mmaxaistep; 

} 

} 

/***•******•*•«*•***••*•  end  of  RFFT  ********************************/ 
/****••********•**•*****  function  fburst  •••*********•***************/ 
/*  FBURST 

This  routine  will  find  the  center  burst  of  an  interferogram  array. 
The  routine  is  a  function  call  as  the  burst  value  is  returned. 

routines  called: 

HONE 

- 

int  f burst ( raw^buf , ipoint s ) 

/*  The  following  global  parameters  are: 

raw__buf  -  the  interferogram  array 

ipoints  -  the  number  of  points  in  interferogram 

*/ 

float  raw_buf ( ] ; 
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int  ipointa; 

{ 

Int  l,max_loc,  min_loc; 
float  max_val>0.0,  min_val>0.0; 

/*  printf  ("ipointa  in  fburat>  %04d\n", ipointa) ; 
printf  ("raw_bu£l50]»  %10.5f\n",raw^bu£I50] ) ;*/ 
for  (i«l;i  <■  ipointa;  i++) 
if  (raw_buf(ij  >  max_val) 

{ 

Biax_^val»raw_buf  ( i  J ; 
inax_loc  ■  i; 

/*  printf (■max_loc*  %04d\n",max_loc) ;  */ 

> 

•lae  if  (raw_buf(i]  <  min_val) 
i 

min_val  ■  raw_buffi); 
min_loc  ■  i; 

/*  printf  ("min_loc=  %04d\n",inir»_loc) ;  */ 

} 

if  ( f aba ( (double)  inin_val)  >  max_val) 
return  (inin_loc); 

elae 

return  (max  loc); 

} 


/«.***«****««««********•*  •nd  of  FBURST  ****************************** 
y***********************  function  normal  **************************** 


/*  NORMAL 

Thia  routine  ia  uaed  to  normalize  the  apectral  buffer. 

routinea  called: 

NONE 


void  normal  (buffer,  ipointa) 
float  buffer[]; 

{ 

int  index; 
float  aaq  >  0.0; 

for  (index  >  0;  index  <  ipointa;  index-t-f) 
aaq  buffer  (index]  *  buf  fer[  index  ] ; 

if  (aaq  >  0.0) 

aaq  ■  ipointa  /  aqrt  (aaq); 

•lae 

aaq  *  1.0; 

for  (index  *  0;  index  <  ipointa;  index t-+) 
buffer [index]  *>  aaq; 
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/ 

/ 


This  routine  will  rotate  an  inter ferogram  buffer.  The  buffer  will 
be  rotated  -c  that  the  center  burst  is  in  array  position  1. 

routines  called: 

NONE 


} 

/*******•***************  end  of  normal  *' 
/*************»*********  function  rotate 


/*  ROTATE 


_ _ 

void  rotate  (burst,  raw_buf,  spc_buf,  ipoints) 

/•  The  following  parameters  are: 

raw  buf  -  the  input  interferogram  buffer 

spc~buf  *■  the  rotated  interferogram  buffer 

burst  -  the  interferogram  center  burst  array  position 

ipoints  -  number  of  interferogram  points  is  arrays 

V 

float  raw_buf ( ] ,  spc_buf [ ] ; 
int  ipoints,  burst; 

{ 

int  oindex,  nindex; 

for  (oindex*burst,  nindex»l;  oindex  <«  ipoints;  oindex++,  nindex-f 
spc_buf (nindex]  ■  raw_buf (oindex] ; 

/*  nindex-*!;  */ 

for  (oindex«l;  oindex  <  burst;  oindex++) 

{ 

spc_buf (nindex]  -  raw_buf (oindex) ; 
nindex++; 

> 

/*i*********************  end  of  ROTATE  ******************************/ 
f***********************  function  draw^axis  *************************/ 
/*  DRAW_AXIS 

This  routine  will  draw  the  axis  for  either  an  interferogram  or 
spectrum  display. 

routines  called: 

Microsoft  C  graphics  display  routines 


_ _ 

void  draw_axis  (scan,imode) 

/*  The  following  parameters  are: 
scan  -  the  scan  number 

ifflode  -  display  mode  type;  0*inter ferogram,  1-spectrum 

•/ 

int  scan,  isiode; 

{ 

int  i,  ih; 
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char  buffer [80]; 

If  (Imode  1) 
ih  «  150; 
else 
ih  -  0; 

_moveto  (Of  ih+0);  /*  Print  the  X  axis  */ 

_lineto  (512,  ih-«-0); 

_moveto  (0,150);  /*  Print  the  ¥  axis  */ 

_lineto  (0,-150); 

for(i  ■>  0;  i  <*  512;  i  64)  /*Print  the  X  axis  ticlc  mar)cs  */ 
i 

_nioveto  ( i ,  ih+5 ) ; 

_lineto(i,  ih+0); 

} 

for(i  »  0;  i  <*  512;  i  +-  32) 

{ 

_moveto ( i ,  ih+3 ) ; 

_lineto(i,  ih+0); 

> 

for(i  *0;  i  <*  512;  i  +■  16) 

< 

jmoveto ( i ,  ih+2 ) ; 
lineto(i,  ih-i-O); 

T 

/*  for(i  *  150;  i  >  -150;  i  -=  25)  Print  the  Y  axis  tick  marks 

< 

_moveto ( -4 ,  i+1 ) ; 

lineto(0,  i4-l); 

)  */ 

/*  Label  the  axis  */ 

_settextposition(25,36) ;  /*  X  AXIS  */ 

"outtext  ("  SCAN  #  "); 

sprintf (buffer, "%05d", scan) ; 

__settextposition(25,45) ; 

_outtext  (buffer); 
if  (inK>de  »  3) 

{ 

^settextposition  (25,  8); 

_outtext  ("700"); 

_settextposition  (25,  70); 

"outtext  ("1400"); 

) 

_settsxtposition(9,5);  /*  Y  AXIS  */ 

”outtext  ("A"); 
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■ettextpoaition (10,5); 
outtaxt  ("/"); 
••ttaxtpoaltion(ll,5) ; 
outtext  ("D"); 
aettaxtpoaltion (13,5); 
outtaxt  ("u"); 
aettaxtpoait ion (14,5); 
outtaxt  ( "n" ) ; 
aattaxtpo8ition(15, 5) ; 
outtaxt  ("1"); 
aattaxtposition(16,5) ; 
outtaxt  ("t"); 
aattaxtpoait ion ( 17 , 5 ) ; 
outtext  ("a"); 


} 

/***************************  end  of  DRAW_AXIS  *****************************/ 
/******•********************  function  logoega  *****************************/ 
/•  logoega  ia  a  function  used  to  create  the  CBDA  logo  for  EGA  graphics. 

The  funtion  requires  two  parameters,  the  x  and  y  coordinates  for  the 
first  letter  "C".  If  the  logo  coordinates  are  outside  the  exceptable 
range,  no  logo  will  be  plotted. 

author:  John  Ditillo 
modified  by:  Bob  Kroutil 

logoega  is  based  on  the  "old"  CHPEC  logo  routine 
written  by  John  T.  Ditillo 

date:  October  1992  */ 

void  logoega (y,x) 
int  y,  x; 

{ 

int  xp,  yp; 

if  (y<23  £  y>l  fi  x<76  fi  x>2) 

{ 

/*  draw  the  logo  */ 

_settextposition(y,x) ; 

_outtext  ( "C" ) ; 

_set t extpos it ion ( y + 1 , X- 1 ) ; 

“outtext  ("B  D"); 

_settextposition(yf2,x) ; 

_outtext  ("A"); 

/*  Calculate  first  pixel  location  */ 
yp  ■  y  *  14  -  16; 
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xp  *  X  *  8  -  5; 

/*  first  banzens  */ 
_inoveto(xp,yp) ; 
_lineto(xp-8,yp+3) ; 
_lineto(xp-8,yp+13) ; 
_lineto(xp,yp+17) ; 
_lineto(xp+8,yp+13) ; 
_lineto(xp+8,yp+3) ; 
_linato(xp,yp); 

/*  second  benzene  */ 
_inovato  ( xp-8 ,  yp+13 ) ; 
_linato(xp-16,yp+17) ; 
_lineto(xp-16,yp+27) ; 
_lineto(xp-8,yp+31) ; 
_lineto(xp,yp+27) ; 
_lineto(xp,yp+17) ; 

/*  third  benzene  */ 
_moveto(xp+8,yp+13) ; 
_lineto(xp+16,yp+17 ) ; 
_lineto(xp+16,yp+27) ; 
_lineto(xp+8,yp+31) ; 
_^lineto(xp,yp+27)  ; 

/*  fourth  benzene  */ 
_rooveto ( xp-8 , yp+3 1 ) ; 
_1 ineto ( xp-8 , yp+42 ) j 
_lineto(xp,yp+45) ; 

_1 ineto ( xp+8 , yp+42 ) ; 
_1 ineto (xp+8, yp+3 1) ; 


> 


} 

y*******i 

^*****«*^ 
/*  PLOTR 


end  of  LOGOEGA  ********************•*******/ 
function  plotr  ****************************/ 


This  routine  is  used  to  scale  and  display  the  interferogram  or 
spectrum. 


routines  called: 

Microsoft  C  graphics  routines 


- */ 

void  plotr  (buf,  istps,  iendp,  imode) 

/*  The  following  parameters  are: 

buf  -  the  array  buffer  to  plot 
istps  -  the  starting  point  to  display 
iendp  -  the  ending  point  to  display 
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imode  -  the  display  mode  (0>interferogram,  l>spectrum) 


*/ 

float  buf [  ] ; 

Int  istps,  iendp,  imode; 

{ 

int  index,  x,  y,  ih,  ip; 
float  max,  xscale,  yscale; 

/*  number  of  points  to  plot  */ 
ip  s  iendp  -  istps; 

/*  find  the  largest  value  */ 

for  (index«istps,  maxsQ.O;  index  <  iendp;  index-*-t>) 

{ 

if  ( (fabs( (double ) buf (index] ) )  >  max) 

meuc  s  (float)  (fabs( (double)buf[ index] )) ; 

} 

/*  Calculate  the  scaling  factor  */ 
xscale  s  512.0/ip; 
if  (imode  1) 

{ 

yscale  «  300.0/max; 
ih  -  150; 

} 

else 

{ 

yscale  •  150.0/max; 
ih  -  0; 

} 

/*  plot  the  data  */ 

_moveto  (0,  (int)  -(buf (istps]  *  yscale  -  ih)); 
for  (index^l;  index  <  ip;  index-t-f) 

{ 

X  >  (int)  index  *  xscale; 

y  =  (int)  -(buf (index-*- istps]  *  yscale  -  ih); 
_lineto  (x,y); 

}” 


> 

/.*.***.. 

/******** 

/*  GETSPC 


*****  end  of  PLOTR  *************************** 
function  getspc  ****************************** 


This  routine  will  get  up  to  4  black  body  spectra  on  the  disk  and 
read  them  into  an  array.  The  stored  spectra  are  SpectraCalc 
floating  point  binary  format  (FSP  format  -  use  the  input  and 
output  commands  in  SpectraCalc). 

routines  called: 

NONE 
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- */ 

void  getspc  (epc_bak,  ipta,  ch) 

/*  The  following  parameters  are: 

spc_ba)c  -  the  array  that  contains  the  stored  disk  spectral  responses 
ipts  -  the  number  of  points  in  the  array 
ch  -  a  flag  to  tell  which  spectrum  file  to  read 

*/ 

float  spc_bak[]; 
int  ipts; 
char  ch; 

{ 

int  fp3; 

float  numpts,  firstx,  lastx,  xunits,  yunits,  res; 
char  afile[20]; 

/*  load  the  black  body  spectra  */ 

if  (ch  »  FSEL5) 

strcpy  (afile, "fS. fsp" ) ; 
if  (ch  *«  FSEL6) 

strcpy  (af  ile,  **f6.  fsp" ) ; 
if  (ch  FSEL7) 

strcpy  (afile, "f 7. fsp") ; 
if  (ch  —  FSEL8) 

strcpy  (afile, "f8. fsp" ) ; 

if  ((fp3  ■  open  (afile,0_RD0NLY|0__BlNARy) )  >-  0) 

< 

read  (fp3,  (char  *)  finumpts,  4); 
read  (fp3,  (char  *)  fifirstx,  4); 
read  (fp3,  (char  *)  &lastx,  4); 
read  (fp3,  (char  *)  Kxunits,  4); 
read  (fp3,  (char  *)  &yunits,  4); 
read  (fp3,  (char  *)  fires,  4); 

if  (  read  (fp3,  spc_bak,  4  *  ipts)  4  *  ipts) 

printf ( "\nUnable  to  read  disk  stored  black  body  file.\n"); 
close  (fp3); 

} 

else 

{ 

_8ettextposition  (1,20); 

_outtext  ("=ss>  ERROR  -  disk  file  .fsp  does  not  exist  till  <s=s") 

} 

} 

/«•*•*•**•***•**•••**•  end  of  getspc  ********************************/ 
/********♦************  function  errcod  *****************************'*/ 
/*  ERRCOO 

This  routine  will  find  out  if  the  data  has  an  error. 
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routines  called: 
NONE 


- */ 

Int  errcod  (raw_buf,  Ipolnts,  buret,  lastpeak) 

/*  The  following  parameters  are: 

raw_buf  -  the  real  valued  buffer  array  to  test 

ipoints  -  number  of  points  in  array 

burst  -  the  array  location  of  the  center  burst 

lastpeak  -  the  last  array  location  holding  the  previous  center  burst 

*/ 

int  burst,  lastpeak,  ipoints; 
float  raw_buf [ ] ; 

{ 

int  ercod; 

ercod  >0; 

if  (ipoints  <  1024) 
ercod  «  1; 

if  (fabs(raw_buf [burst] )  >=  32767.) 
ercod  «  2; 

if  (lastpeak  burst) 
ercod  *3; 
if  (burst  >  500) 
ercod  *4; 

if  (fabs(raw_buf [burst] )  <>  8192.) 
ercod  «  5; 

/*  printf  ( "raw_data[%04d]  «  tOSd”, burst,  raw_data [ burst ]) ; 
printf  ("burst  position  >  %04d",  burst);  */ 

'*  NOTE:  error  code  for  bit  toggle  not  yet  implemented  */ 

return  (ercod); 

} 


/* - */ 

/*  in:  Allow  port  input  during  debug.  */ 
/*  This  is  necessary  for  CV  4.00 — the  "I"  command  (port  */ 
/*  input  is  broken.  The  circumvention  is  to  include  a  */ 
/*  a  global  function  such  as  in()  below,  trace  at  least  */ 
/*  as  far  as  the  main()  function,  then  "?in(port)"  or  */ 
/*  "7in(port ) ,x"  to  read  port  contents.  */ 
/* - */ 


int  in(  unsigned  port  ) 

{ 

int  i; 

i  *  inp(port); 
return  i; 

}  /*  in  */ 
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/• - */ 

/*  loOelay:  I/O  delay  for  IBM/AT  and  clonea.  */ 

/*  */ 

/*  This  dummy  function  is  used  to  generate  a  few  clocks  of  delay  */ 

/*  between  consecutive  accesses  to  certain  I/O  ports.  Basically,  */ 

/*  the  call /return  sequence  is  more  than  enough.  Assembler  */ 

/*  programs  typically  use  a  "JMP  SHORT  instruction,  but  */ 

/*  the  MSC7  inline  assembler  doesn't  seem  to  handle  the  "$"  */ 

/*  token  very  well.  The  delay  is  necessary  on  IBM  AT  machines  */ 

/*  and  true  compatibles.  */ 

/*  */ 

/*  Needless  to  say,  allowing  this  function  to  be  inlined  would  */ 

/*  be  a  bad  idea...  */ 

/* - */ 


static  void  near  loDelay (void) 

{ 

9 

}  /*  loDelay  */ 


/* - V 

/*  GetDmaBuf fer:  Allocate  a  byte-DMA  compatible  buffer  */ 

/•  *! 

/*  A  byte  DMA  buffer  cannot  cross  a  64K-byte  absolute  address  */ 

/*  boundary.  */ 

/*  V 

/*  Returns  pointer  to  buffer  if  successful,  NULL  otherwise.  */ 

/• - */ 

void  far  *GetDmaBuf fer ( long  Size) 

{ 

/define  MaxTries  16  /*  Maximum  attempts  before  failure  */ 


void  far  * failed [ MaxTries ] , 

far  *try, 
far  *retry; 

unsigned  begoff,  endoff; 

int  i,  nfail^O; 

if  (Size>MAXDMA  j  |  SizeoO)  return  NULL; 

for  (;;)  /*  Repeat  until  explicit  break:  */ 

{ 

try  s  malloc( (size_t )Size) ; 
if  (  try»NULL  )  break; 

/*  Test  for  64K  block  wraparound:  */ 

begoff  «  (FP_SEG(try)  «  4)  +  FP_OFF(try); 
endoff  s  begoff  +  (unsigned)Size  -  1; 

if  (endoff  >*  begoff)  break;  /*  Success  if  all  in  1  block 
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/*  Current  attempt  crosses  boundary,  retry  if  failed  list  not  full: 


if  (nfail  »  MaxTries) 

{ 

free (try) ; 
try  *  NULL; 
break; 

} 

/*  Resize  current  try  to  end  on  64K  absolute  boundary  and  add  it  to 
/*  the  failed  list: 

retry  ■  realloc(try,  l+"begoff); 
if  (  retry  t>  NULL  ) 
try  ■  retry; 
failed  (nfail-*"*-]  »  try; 

} 

/*  Arrive  here  via  explicit  break.  Free  failed  attempt  pointers,  if 
/*  any  and  exit.  The  try  variable  has  been  set  to  a  pointer  on  success 
/*  or  to  NULL  on  error. 

for(  i*0;  i<nfail;  -f-fi  ) 

{ 

free(  failed] i]  ); 

} 

return  try; 

#undef  MaxTries  /*  Undefine  "local"  macros 

}  /*  GetOmaBuffer  */ 


/* - 

/*  StartDma:  Start  a  DMA  operation. 

/* 

/*  This  is  a  cut-down  version  to  do  input  only,  specifically 

/*  using  D^tA  info  in  MidGbl  structure. 

/* - 

void  StartDma (void) 

{ 

long  addr  >  PtrToLong(MidGbl.DmaBuf fer) ; 

int  size  «  ( int )MidGbl.DmaSize; 

unsigned  ch  «  2*MidGbl.DmaChannel; 

DisableDma(MidGbl.DmaChannel) ; 

loDelayO;  /*  Wait  a  few  CPU  clocks 

outp  ( DMA_MODE ,  0x44-*-MidGbl .  DmaChannel ) ; 

/*  DMA  Mode:  single-block,  */ 

/*  increment  address,  */ 
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/*  no  autoinitialize,  */ 

/*  "write  transfer"  ->  cpu  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_CLRF,0) ;  /*  Set  to  receive  LSB  first  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_CTR4-ch,  (int)size);  /*  Send  byte  count  */ 

loOelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_CTR+ch,  (int)size  »  8); 

ZoDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_AODR-t-ch,  (int)addr);  /*  Send  address  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp ( DMA_ADOR+ch ,  ( int ) addr  »  8 ) ; 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(MidGbl.DmaPageReg,  (int)  (addr»16) ) ; 

/*  Set  page  reg  to  top  8  bits  */ 

ZoDelay();  /*  Wait  a  few  CPU  clocks  */ 

EnableDina(MidGbl.DmaChannel) ;  /*  Finally,  enable  DMA  */ 

}  /*  StartDma  */ 

/* - */ 

/*  SetIrqEnable:  Set/Reset  IRQ  enable  status  for  specified  */ 

/*  channel.  */ 

/*  V 

/*  Please  note  that  the  sense  of  the  "Enable"  argument  is  a  C-  "/ 

/*  style  boolean.  Nonzero,  or  "true",  enables  the  channel.  This  */ 

/*  is  opposite  from  the  8259  mask  register,  where  a  1  disables  */ 

/*  the  channel  and  0  enables.  */ 

/* - */ 

void  SetIrqEnable ( 

int  IrqNumber,  /•  Interrupt  channel,  0-15  */ 


int  Enable)  /*  New  enable  status  for  this  channel  */ 

/*  0  a  disable  interrupts  */ 

/*  nonzero  «  enable  interrupts  */ 

{ 

unsigned  port; 

int  mask,  val; 

if  (IrqNumber  <  8) 

{ 

port  *  PIC1_MASK;  /*  Primary  8259  port  */ 

mask  a  1  «  IrqNumber; 

} 

else 

{ 
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port  =  PIC2_MASK;  /*  Secondary  8259  port  */ 

mask  =  1  <<  (IrqNumber-8) ; 

} 

val  =  inp(port)  |  mask;  /*  Set  to  mask  disaible  */ 

if  (EneQsle)  val  -=  mask;  /*  Set  to  enedile  if  requested  */ 

outp(port,  val);  /*  Update  port  */ 

}  /*  SetlrqEnedsle  */ 

/*  .  */ 

/*  MidAqStartScan:  Start  new  data  collect  operation  */ 

/*  */ 

/*  This  is  a  skeleton  of  what  is  needed  to  begin  a  new  data  */ 

/*  scan,  or  series  of  accumulated  sceuis,  on  the  Midac  FT-IR.  */ 

/*  .  .  */ 

void  MidAqStartScan (void) 

{ 

SetIrqEnable (MidGbl . IrqNum,  0);  /*  Disable  interrupt  channel  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 

DisableDma (MidGbl .DmaChannel) ;  /*  Disedjle  DMA  channel  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

StartDmaO;  /*  Start  DMA  channel  */ 

SetlrqEneUale (MidGbl. IrqNum,  1);  /*  Enable  interrupt  channel  */ 

/*  Set  gain  and  retrace  interferometer:  */ 


CmdOut(  MidGbl. GainPort  |  MIDC_EOS  |  MIDC_IRQ  ); 

/*  Start  IRQ  clear  pulse*/ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks*/ 

CmdOut(  CmdInO  &- (MIDC_EOS  +  MIDC_1RQ)  );  /*  End  IRQ  clear  pulse,  */ 

/*  Start  retrace  pulse  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks*/ 

while  (inp(MID_STAT)  &  MIDS_FLYBK) ;  /*  Wait  for  turnaround  */ 


CmdOut(  CmdlnO  |  (MIDC_EOS  +  MIDC_IRQ) ) ;  /*  End  retrace  pulse  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks*/ 

/*  Note:  May  need  to  insert  delay  here,  l0-20ms,  to  allow  for  */ 

/*  hardware  bug  in  Midac  interface  causing  early  DMA  requests.  */ 

_asm  xor  cx,cx 
here :  _asm  loop  here 

MidGbl .DmaActive  =1;  /*  Set  global  DMA  status  flags  */ 

MidGbl .DmaDone  =  0; 

CmdOut(  CmdlnO  \  MIDC_DMA  );  /*  Enable  DMA  at  interface  */ 


}  /*  Mi dAqS tart Scam  */ 
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/*  .  */ 

/*  MidAqDmcO^one :  Interrupt  Hamdler  for  DMA  connpletion  */ 

/*  */ 

/*  This  version  simply  notes  DMA  completion,  retraces  the  */ 

/*  interfercaneter,  and  disadiles  DMA  at  both  the  8237  and  at  */ 

/*  the  Midac  interface  board.  This  would  be  the  natural  place  */ 

/*  to  insert  co-add  logic  for  averaging  interf erograuns .  */ 

/*  .  */ 

void  _cdecl  _interrupt  far  MidAqDmaDone (void) 

{ 

MidGbl .DmaDone  =1;  /*  Note  DMA  completion  */ 

CmdOut  (  (ZmdInO  &-MIDC_DMA  );  /*  Disable  DMA  at  interface  */ 

DisableDma  (MidGbl  .DmaChannel)  ;  /*  then  discible  chcinnel  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 

/*  Retrace  interferometer:  */ 

CmdOut (  CmdInO  |  (MIDC_EOS  +  MIDC_IRQ)  );  /*  Start  IRQ  clear  pulse*/ 

CmdOut (  CmdInO  &- (M1DC_E0S  +  MIDC_IRQ)  );  /*  End  IRQ  clear  pulse,  */ 

/*  Start  retrace  pulse  */ 

_enable();  /*  Interrupts  on  now  */ 

while  (inp (MID_STAT)  &  MIDS^FLYBK) ;  /*  Wait  for  turnaround  */ 

CmdOut  (  CmdInO  |  (MIDC_EOs'~+  MIDC_IRQ) )  ;  /*  End  retrace  pulse  */ 

/*  This  is  the  place  to  put  co-add  logic  and  possibly  start  the  */ 
/*  DMA  controller  for  a  new  scan.  Note  that  the  instrument  will  */ 
/*  scan  anyway- -the  decision  is  whether  or  not  to  collect  the  data.  */ 

/*  Note:  May  need  to  insert  delay,  10-20ms,  to  allow  for  */ 

/*  hardware  bug  in  Midac  interface,  if  another  scan  is  to  be  */ 

/*  started  here.  */ 

outp (PIC1_CMD,  PICC_EOI) ;  /*  Issue  EOI  to  master  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 

if  (MidGbl . I rqNum  >  7)  /*  If  interrupt  is  on  slave  */ 

outp (PIC2_CMD,  PICC_EOI) ;  /*  then  issue  secondary  EOI 

}  /*  MidAqDmaDone  */ 

/*  .  */ 

/*  MidAqSetGain :  Set  Signal  Gain  */ 

/*  */ 

/*  .  V 

int  MidAqSetGain (int  SignalGain) 

{ 

int  gainport  =  ({-SignalGain  <<  MIDC_GSHIFT)  &  MIDC_GMASK) ; 
int  oldgain  »  MidGbl .GainVal; 


j^pendix  G 


145 


if  (SignalGain<0  | |  SignalGain>7) 
return  -1; 

CmdOut  (gainport  |  (CmdInO  &  ~MIDC_GMASK) )  ; 
MidGbl .GainVal  s  SignalGain; 

MidGbl . GainPort  s  gainport ; 
return  oldgain; 

}  /*  MidAqSetGain  */ 


/*  .  */ 

/*  •/ 

/*  MidAqTerm:  Data  collect  termination  */ 

/*  */ 

/*  This  function  is  not  explicitly  called,  but  is  called  at  */ 

/*  program  termination  via  the  atexitO  facility.  The  primary  */ 

/*  task  is  to  disable  DMA  and  the  terminal  count  interrupt  amd  */ 

/*  restore  the  IRQ  vector.  */ 

/*  .  */ 


void  MidAqTerm  (void) 

{ 

SetlrqEnaible  (MidGbl .  IrqNum,  0 )  ; 

DisableDma  (MidGbl .  DmaChcuinel )  ; 

CmdOut (MIDC_EOS) ; 
loDelayO  ; 

if  (MidGbl. Oldirqvec  !=  NULL) 

{ 

__dos_setvect (MidGbl . IrqVecNo,  MidGbl .OldIrqVec) ; 
MidGbl. OldIrqVec  =  NULL; 

} 

)  /*  MidAqTerm  */ 


/*  DiseQsle  interrupt  channel  */ 
/*  Disaible  DMA  channel  */ 
/*  Reset  the  interferometer  */ 
/*  Wait  a  few  CPU  clocks  */ 


/*  .  */ 

/*  MidAqInit:  Initialize  Midac  interface  for  data  collect  */ 

/*  */ 


/*  The  arguments  to  this  function  provide  for  setup  parameters  */ 
/*  and/or  nonstandard  interface  board  configurations.  Each  is  */ 
/*  either  a  nonnegative  integer  value,  or  -1  to  use  the  */ 
/*  predefined  default  value.  */ 

/*  */ 

/*  The  first  two  arguments  (DmaChannel,  IrqNumber)  describe  the  */ 
/*  configuration  of  the  Midac  interface  board.  Current  interface  */ 
/*  boards  are  hardwired  for  DMA  channel  l  and  are  jumper  */ 
/*  selectable  to  use  either  IRQ2  or  IRQ3 .  Other  options  could  */ 
/*  conceivably  be  possible  for  unusual  custom  requirements.  */ 
/*  In  general,  however,  such  a  modified  interface  board  would  */ 
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/*  be  incompatible  with  existing  SpectraCalc  and  LabCalc  drivers.  */ 

/*  V 

/*  The  buffer  size  argument  (MaxPoints)  is  necessary  to  allocate  */ 

/*  a  DMA  buffer.  This  buffer  has  the  hardware-enforced  */ 

/*  requirement  to  not  cross  a  64K-byte  absolute  memory  boundary.  */ 

/*  This  is  the  strictest  dynamic  allocation  requirement  in  a  */ 

/*  typical  data  collect  application,  and  should  be  done  first.  */ 

/*  If  co-addition  of  interferograms  is  to  be  performed,  this  is  */ 

f*  might  be  a  good  place  to  allocate  an  accumulator  buffer  as  */ 

/*  well.  */ 

/*  */ 

/*  The  gain  argument  (SignalGain)  provides  the  initial  signal  */ 

/*  gain  level  for  programming  the  interface.  This  value  is  */ 

/*  subject  to  change  during  program  operation,  but  some  initial  */ 

/*  value  is  required.  */ 

/* - */ 


int  MidAqInit( 


int 

DmaChannel , 

/* 

DMA  channel  number,  0-3 

*/ 

int 

IrqNumber, 

/* 

PC/ISA  interrupt  channel  number 

V 

int 

SignalGain, 

/* 

Signal  gain  level,  0-7 

*/ 

int 

MaxPoints) 

/* 

Max  data  points  in  collect  buffer 

V 

int 

i,  dmachan. 

irqnum 1 

,  maxpts,  gainval,  gainport; 

/*  Translate  and  validate  input  paramters...  */ 

dmachan  *  0maChannel>*0  ?  DmaChannel  :  DMA; 

irqnum  «  IrqNumber  >»0  ?  IrqNumber  :  IRQ; 

gainval  >  SignalGain»0  ?  SignalGain  :  GAIN; 

maxpts  -  MaxPoints»0  ?  MaxPoints  :  BUFPTS; 

if  (dmachan  1*  DMA)  return  -1;  /♦  •"'•■‘temp***  need  to  know  page  */ 

/*  register  addresses  for  other  */ 

/*  DMA  channels  to  generalize  */ 

/*  this  for  other  byte  channels  */ 


if 

if 

if 

if 


(dmachan<0  | j  dmachan>3) 
return  -1; 

(irqnunxO  |j  irqnum>15) 
return  -1; 

(gainval<0  | |  gainval>7} 
return  -1; 

(maxpts<l  |j  maxpts>(MAXDMA  /  2)) 
return  -1; 


/*  Bring  the  hardware  interface  to  idle  state: 


*/ 


gainport  >  ('gainval  «  MIDC_GSHIFT)  &  MIDC_GMASK; 

/*  Compute  inverted  gain  val  */ 

MidGbl.GainVal  >  gainval;  /*  Save  requested  gain  */ 

MidGbl.GainPort  «  gainport;  /*  Save  port  image  */ 
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CmdOut (ga inport  1  MIDC_EOS);  /*  Set  gain,  DMA  off,  and  */ 

/*  EOS, IRQ  strobes  off.  */ 

SetIrqEnable(irqnum,  0);  /*  Disable  interrupt  channel  */ 

DisableDma(dmachan) ;  /*  Disable  DMA  channel  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

/*  Initialize  DMA;  */ 


MidGbl .DmaDone  *  0; 

MidGbl.DmaActive  *  0; 

MidGbl. MaxPoints  >  maxpts; 

MidGbl. DmaChannel  >  dmachan; 

MidGbl . DmaPageReg  >  DmaPageTable [ dmachan ] ; 

MidGbl. DmaSize  «  (long)maxpta  *  sizeof (unsigned  short); 

MidGbl. DmaBuffer  «  GetDmaBuffer (MidGbl. DmaSize ) ; 

if  (MidGbl. DmaBuffer  ==  NULL) 
return  -1; 

for  (i»0;  Kmaxpts;  ++i)  /*  Put  recognizable  null  data  */ 

MidGbl. DmaBuffer(i]  *  OxEEEE;  /*  in  buffer  for  debug  */ 

/*  Initialize  IRQ  channel  */ 

MidGbl. IrqNum  >  irqnum; 

MidGbl. IrqVecNo  »  (irqnum<8  1  0x08  :  0x68)  +  irqnum; 

MidGbl. OldIrqVec  =  _doe_getvect (MidGbl. IrqVecNo) ; 

_dos_eetvect (MidGbl . IrqVecNo,  MidAqOmaDone ) ; 

atexit (MidAqTerm) ; 

return  0; 

}  /*  MidAqInit  •/ 
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/*  MENU  -  Module  of  functions  to  put  menus  on  the  screen  and  handle  keyboard 

*  input.  To  use  it,  include  the  MENU.H  file  in  your  program.  The  following 

*  functions  are  public: 


Menu 

Box 

GetKey 

outchar 


Puts  a  menu  on  screen  and  reads  input  for  it 
Puts  a  box  on  screen  (fill  it  yourself) 

Gets  ASCII  or  function  key 

Displays  character  using  current  text  position  and  color 


The  following  structures  are  defined: 


MENU  -  Defines  menu  colors,  box  type,  and  centering 

ITEM  -  Defines  text  of  menu  item  and  index  of  highlight  character 

The  global  variable  "mnuAtrib"  has  type  MENU.  Change  this  variable  to 
change  menu  appearance. 

/ 


#include  <string.h> 
/include  <stddef.h> 
/include  <ctype.h> 
/include  <graph.h> 
/include  <bios.h> 
/include  "menu.h" 


/*  Prototype  for  internal  function  */ 

static  void  Itemize(  int  row,  int  col,  int  fCur,  ITEM  itm,  int  cBlank  ); 

/*  Default  menu  attribute.  The  default  works  for  color  or  B&W.  You  can 

*  override  the  default  value  by  defining  your  own  MENU  variable  and 

*  assigning  it  to  mnuAtrib,  or  you  can  modify  specific  fields  at 

*  run  time.  For  example,  you  could  use  a  different  attribute  for  color 

*  than  for  black  and  white. 

V 

MENU  mnuAtrib  = 

{ 

_TBLACK,  _TBLACK,  _TWHITE,  _TBRIGHTWHITE ,  _TBRICHTWHITE, 

_TWHITE,  _TWHITE,  _TBLACK,  _TWHITE,  _TBLACK, 

TRUE, 


}; 

/*  Menu  -  Puts  menu  on  screen  and  reads  menu  input  from  keyboard.  When  a 

*  highlighted  hot  key  or  ENTER  is  pressed,  returns  the  index  of  the 

*  selected  menu  item. 

* 

*  Params:  row  and  col  -  If  "fCentered"  attribute  of  "mnuAtrib"  is  true, 

*  center  row  and  column  of  menu;  otherwise  top  left  of  menu 

*  altem  -  array  of  structure  containing  the  text  of  each  item 

*  and  the  index  of  the  highlighted  hot  key 

*  iCur  -  index  of  the  current  selection — pass  0  for  first  item, 

*  or  maintain  a  static  value 
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*  Return:  The  index  of  the  selected  item 

* 

*  Uses:  mnuAtrib 

*/ 

int  Menu(  int  row,  int  col,  ITEM  aZtem(],  int  iCur  ) 
{ 


int  citem,  cchitem  »  2;  /*  Counts  of  items  and  chars  per  item  */ 

int  i,  iPrev;  /*  Indexes  -  temporary  and  previous  */ 

int  acchItem[MAXITEM] ;  j*  Array  of  counts  of  character  in  items  */ 
char  *pchT;  /*  Temporary  character  pointer  */ 

char  achHilite[36] ;  /*  Array  for  highlight  characters  */ 

unsigned  uKey;  /*  Unsigned  key  code  */ 

long  bgColor;  /*  Screen  color,  position,  and  cursor  */ 

short  fgColor; 
struct  rccoord  rc; 
unsigned  f Cursor; 


/*  Save  screen  information.  */ 
f Cursor  =  _displaycursor (  _GCURSOROFF  ) ; 
bgColor  »  _getbkcolor ( ) ; 
fgColor  *  _gettextcolor ( ) ; 
rc  >  _gettextposition( ) ; 

/*  Count  items,  find  longest,  and  put  count  of  each  in  array.  Also, 

•  put  the  highlighted  character  from  each  in  a  string. 

*! 

for(  citem  «  0;  altem[cltem]  .achltem(0] ;  cltem-f-f  ) 

{ 

acchltem( citem]  »  strlen(  altem [ citem ] .achitem  ); 

cchitem  >  (acchltem( citem]  >  cchitem)  ?  acchitem] citem]  :  cchitem; 
i  >  altem[ citem] . iHilite; 

achHilite( citem]  -  altem[cltem] .achltem(i] ; 

} 

cchitem  -*->2; 

achHilite[cItem]  >  0;  /*  Null-terminate  and  lowercase  string 

strlwr(  achHilite  ); 

/*  Adjust  if  centered,  and  draw  menu  box.  */ 
if(  mnuAtrib. f Centered  ) 

{ 

row  -*  citem  /  2; 
col  -*  cchitem  /  2; 

} 

Box(  row++,  col++,  citem,  cchitem  ); 

/*  Put  items  on  menu.  */ 
for(  i  »  0;  i  <  citem;  i++  ) 

{ 

if(  i  =*  iCur  ) 

Itemize (  row  i,  col,  TRUE,  altem(i],  cchitem  -  acchltem[i]  ) 

else 
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} 


Itemize(  row  i,  col,  FALSE,  altem(i],  cchitem  -  acchltem[i]  ); 


> 


while (  TRUE  ) 

{ 

/*  Wait  until  a  uKey  ia  pressed,  then  evaluate  it.  */ 
uKey  «  GetKey(  WAIT  ); 
switch (  uKey  ) 

{ 

case  U_UP:  /*  Up  key  */ 

iPrev  «  iCur; 

iCur  ■  (iCur  >0)  7  ( — iCur  %  extern)  :  cltem  -  1; 
break; 

case  U_DN:  /*  Do%m  key  */ 

iPrev  ■  iCur; 

iCur  »  (iCur  <  cZtem)  7  (4-i-iCur  %  cltem)  :  0; 
break; 
default: 

if(  uKey  >  256  )  /*  Ignore  unknown  function  key  */ 

continue; 

pchT  X  strchr(  achHilite,  (char)tolower(  uKey  )  ); 
if(  pchT  1=  NULL  )  /*  If  in  highlight  string,  •/ 

iCur  »  pchT  -  achHilite;/*  evaluate  and  fall  through  */ 

else 

continue;  /*  Ignore  unknown  ASCII  key  •/ 

case  ENTER: 

_setbkcolor(  bgColor  ); 

_settextcolor (  f gColor  ) ; 

_settextposition(  rc.row,  rc.col  ); 

_displaycursor(  f Cursor  ); 
return  iCur; 

} 

/*  Redisplay  current  and  previous.  */ 

Itemize (  row  iCur,  col, 

TRUE,  aItem(iCur],  cchitem  -  acchItem[iCur]  ); 

Itemize (  row  *  iPrev,  col, 

FALSE,  altem[ iPrev] ,  cchitem  -  acchitem] iPrev]  ); 

> 


/*  Box  -  Draw  menu  box,  filling  interior  with  blanks  of  the  border  color. 
* 

*  Params:  row  and  col  -  upper  left  of  box 

*  rowLast  and  colLast  -  height  and  width 

* 

*  Return:  None 

* 

*  Uses:  mnuAtrib 

V 

void  Box(  int  row,  int  col,  int  rowLast,  int  colLast  ) 

{ 

int  i; 
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char  achT[MAXITEM  ■*■2]; 


/*  Temporary  array  of  characters  */ 


/*  Set  color  and  position.  */ 
_settextposition(  row,  col  ); 

_settextcolor(  mnuAtrib. fgBorder  ); 
_setbkcolor(  mnuAtrib.bgBorder  ); 

/*  Draw  box  top.  */ 
achT [ 0 ]  »  mnuAtrib . chNW ; 

memset(  achT  +  1,  mnuAtrib. chEW,  colLast  ); 
achT(colLast  1]  >  mnuAtrib. chNE; 
achT [colLast  *2]  >0; 

_outtext (  achT  ) ; 

/*  Draw  box  sides  and  center.  */ 

achT{0]  >  mnuAtrib. chNS; 

memset(  achT  >1,  *  colLast  ); 

achT [colLast  +  1]  =  mnuAtrib. chNS; 

achT [colLast  +2]  >0; 

for(  i  -  1;  i  <■  rowLast;  ++i  ) 

{ 

_8ettextpo8ition(  row  +  i,  col  ); 
_outtext (  achT  ) ; 

} 

/*  Draw  box  bottom.  */ 

_8ettextpo8ition(  row  +  rowLaat  *  1,  col  ); 
achT[0]  >  mnuAtrib. chSW; 

memset(  achT  *  1,  mnuAtrib. chEH,  colLaat  ); 
achT[colLa8t  1]  <■  mnuAtrib. chSE; 
achT  [colLaat  -*■  2]  *  0; 

_outtext (  achT  ) ; 


/*  Itemize  -  Diaplay  one  eelection  (item)  of  a  menu.  Thia  function 

*  ia  normally  only  uaed  internally  by  Menu. 

* 

*  Parama:  row  and  col  -  top  left  of  menu 

*  fCur  -  flag  aet  if  item  ia  current  eelection 

*  itm  -  etructure  containing  item  text  and  index  of  highlight 

*  cBlank  -  count  of  blanke  to  fill 

* 

*  Return:  none 

* 

*  Uses:  mnuAtrib 

V 

void  Itemize (  int  row,  int  col,  int  fCur,  ITEM  itm,  int  cBlank  ) 

{ 

int  i; 

char  achT[MAXITEM] ;  /*  Temporary  array  of  charactera  */ 

/*  Set  text  position  and  color.  */ 
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_settextposition(  row,  col  ); 
lf(  fCur  ) 

{ 

_8ettextcolor (  mnuAtrib.fgSelect  ); 

_S0tbkcolor(  mnuAtrib.bgSelect  ); 

} 

•Ise 

{ 

_8ettextcolor(  mnuAtrib.fgNormal  ); 

_8etbkcolor(  mnuAtrib.bgNormal  ); 

} 

/*  Diaplay  item  and  fill  blanka.  */ 
atrcat(  8trcpy(  achT,  "  ”  itm.achitem  ); 

_outtext (  achT  ) ; 

mem8et(  achT,  '  ',  cBlank~>  ); 

achT(cBlank]  «  0; 

_outtext (  achT  ) ; 

/*  Set  poaition  and  color  of  highlight  character,  then  display  it. 
i  «  itm.iHilite; 

_aettextpo8ition(  row,  col  i  +  1  ); 
if(  fCur  ) 

{ 

_^8ettextcolor (  mnuAtrib.fgSelHilite  ); 

_setbkcolor(  mnuAtrib.bgSelHilite  ); 

} 

else 

{ 

_settextcolor (  mnuAtrib.fgNormHilite  ); 

_setbkcolor(  mnuAtrib.bgNormHilite  ); 

} 

_outchar(  itm.achltem(i]  ); 


/*  GetKey  -  Gets  a  key  from  the  keyboard.  This  routine  distinguishes 

*  between  ASCII  keys  and  function  or  control  keys  with  different  shift 

*  states.  It  also  accepts  a  flag  to  return  immediately  if  no  key  is 

*  available. 


Params:  fWait  -  Code  to  indicate  how  to  handle  keyboard  buffer: 
NO_WAIT  Return  0  if  no  key  in  buffer,  else  return  key 
WAIT  Return  first  key  if  available,  else  wait  for  key 

CLEAR_WAIT  Throw  away  any  key  in  buffer  and  wait  for  new  key 

Return:  One  of  the  following: 


Keytype 


High  Byte  Low  Byte 


No  key  available  (only  with  NO_WAIT) 
ASCII  value 

Unshifted  function  or  keypad 


0  0 
0  ASCII  code 

1  scan  code 
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Shifted  function  or  keypad 
CTRL  function  or  keypad 
ALT  function  or  keypad 


2 

3 

4 


scan  code 
scan  code 
scan  code 


* 

* 

* 

* 


*  Note:  getkey  cannot  return  codes  for  keys  not  recognized  by  BIOS 

*  int  16,  such  as  the  CTRL-UP  or  the  5  key  on  the  numeric  keypad. 

*/ 

unsigned  GetKey(  int  fWait  ) 

{ 

unsigned  uKey,  uShift; 


/*  If  CLEAR_HAIT,  drain  the  keyboard  buffer.  */ 
if(  fWait  «*  CLEAR_WAIT  ) 

while (  _bios_keybrd(  _KEYBRD_READY  )  ) 
__bioa_keybrd(  _KEYBRD_READ  ); 

/*  If  NO^WAIT,  return  0  if  there  is  no  key  ready.  */ 
if(  i fWait  &&  l_bioa_keybrd(  _KEYBRD_READY  )  ) 
return  FALSE; 


/*  Get  key  code.  */ 

uKey  =  _bio8_keybrd(  _KEYBRD_READ  ); 

/*  If  low  byte  is  not  zero,  it's  an  ASCII  key.  Check  scan  code  to  see 
*  if  it's  on  the  numeric  keypad.  If  not,  clear  high  byte  and  return. 

if(  uKey  6  OxOOff  ) 

if(  (uKey  »  8)  <  69  ) 

return(  uKey  &  OxOOff  ); 


} 


/*  For  function  keys  and  numeric  keypad,  put  scan  code  in  low  byte 
*  and  shift  state  codes  in  high  byte. 

*/ 

uKey  »■  8; 


uShift  -  _bio8_keybrd(  _KEYBRD_SHIFTSTATUS  )  &  OxOOOf; 
switch (  uShift  ) 

{ 


} 


case  0: 

return ( 
case  1: 
case  2: 
case  3: 

return ( 
case  4: 

return ( 
case  8: 

return ( 


0x0100 

1  uKey 

); 

/* 

None  ( 1 ) 

*/ 

0x0200 

1  uKey 

); 

/* 

Shift  (2) 

*/ 

0x0300 

1  uKey 

); 

/* 

Control  ( 3 ) 

*/ 

0x0400 

1  uKey 

); 

/* 

Alt  (4) 

*/ 

/*  _outchar  >  Display  a  character.  This  is  the  character  equivalent  of 
*  _outtext.  It  is  affected  by  _8ettextpo8ition,  _settextcolor ,  and 
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*  _setbkcoIor.  It  should  not  be  used  in  loops.  Build  strings  and  then 

*  _outtext  to  show  multiple  characters. 

* 

*  Params:  out  -  character  to  be  displayed 

* 

*  Return :  none 
*/ 

void  _outchar(  char  out  ) 

{ 

static  char  achT[2]  ■  "  /*  Temporary  array  of  characters  */ 

achT [ 0 ]  »  out ; 

_outtext  (  iichT  ) ; 

} 
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APPENDIX  H 


MIDAC  REAL-TIME  PATTERN  RECOGNITION  PROGRAM 

/*********************************************************************/ 

/* 

program  NTTRX 

This  program  is  a  "C"  version  of  the  TBSTWV  program  located  on  the 
Silicon  Graphics  computer.  The  program  will  process  interferograms 
collected  on  the  Midac  unit  120  interferometer  euid  display  the 
result  of  the  filtering  and  pattern  recognition. 

author:  Bob  Kroutil,  Mike  Housky 

date:  October  1992  */ 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  <fcntl.h> 

#include  <graph.h> 

#include  <math.h> 

#include  <time.h> 

#include  "headers .def" 

#include  "mtrx.def" 

^include  <stddef .h>/*  Stauidard  ANSI  headers*/ 

#include  <conio.h>/*  MSC-specific  headers*/ 

#include  <dos.h> 

#include  "middef.h"/*  Midac- specific  headers*/ 

^include  "f ilterl . inc"  /*  include  the  digital  filter  coefficients  */ 
#include  "discriml . inc"  /*  include  the  pattern  recognition  coefficients  */ 


/*  .  */ 

/*  Local  definitions:  */ 

/*  .  */ 

/*  MSC7/MSC6  Portability:  */ 


#ifdef  MSC_VER 
#if  MSC_VER  >*  700 
#define  outp  _outp 
#define  inp  _inp 
#endif 
#endif 


idefine  TIMEOUT  20.0  /*  DMA  Canpletion  timeout,  in  seconds  */ 

/*  Defaults  for  MidAqInit:  */ 

#define  DMA  1  /*  Default  DMA  cheuinel  */ 

#define  DMAPAGE  0x83  /*  DMA  page  register  port  for  default  */ 

/*  chcuinel  */ 

2  /*  Default  IRQ  channel  */ 

0  /*  Default  signal  gain  level  (0-7)  */ 


#define  IRQ 
idefine  GAIN 
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#define  BUFPTS 


!* 

#d«fin«  MAXDMA 


16384  /*  Default  DMA  buffer  size  in  data 

points  */ 

OxFFSO  /*  Maximiun  DMA  buffer  size  in  bytes 


*/ 

*/ 


/*  Note:  MAXDMA  must  be  less  than  the  "ideal"  limit  of  */ 
/*  64K  for  the  GetDmaBuffer  function  to  %rark  properly.  */ 


/* 

*/ 


System  board  (PC/AT)  I/O  definitions: 


/define  sys_DMAl  0x00  /*  Base  of  byte  DMA  controller 


*/ 


/*  These  ports  are  channel-independent: 


*/ 


/define  DMA_STAT 
/define  DMA_CMD 
/define  DMA_REQ 
/define  DMA_WSMR 
/define  OMA_MODE 
/define  DMA~CLRF 
/define  DMA_TEMP 
/define  DMA~MCLR 
/define  DMA~CMSK 
/define  DMA~WAMR 


(SYS_DMA1+  8)  /* 
(SYS_DMA1+  8)  /* 
(SYS_DMA1+  9)  /* 
(SYS_DMA1+10)  /* 
(SYS_DMA1+11)  /* 
(SYS_DMA1+12)  /* 
(SYS_DMA1+13)  /* 
(SYS_DMA1+13)  /* 
(SYs”dMA1+14)  /* 
(SYS~DMA1+15)  /* 


(R)  Status  register 

(W)  Command  register 

(W)  Request  register 

(W)  Write  single  mask  register 

(H)  Mode  register 

(W)  Clear  byte  pointer  flip-flop 

(R)  Temporary  register 

(W)  Master  Clear 

(W)  Clear  mask  register 

(W)  Write  all  mask  register  bite 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

*/ 

V 


/*  These  occur  4  times,  once  for  each  channel.  Add  2* (channel  number)  */ 
/*  to  get  true  port  address:  */ 


/define  DMA_ADDR  (SYS_DMA1>  0)  /*  (R/W)  Base  or  current  address  */ 
/define  DMA_CTR  (SYS_DMA1+  l)  /*  (R/W)  Base  or  current  word  count  */ 

/define  SYS_PIC1  0x20  /*  Base  of  primary  interrupt  controller  */ 
/define  PIC1_CMD  (SYS_PICl+0)  /*  (W)  Command  register  (OCW2/OCW3)  */ 
/define  PIC1_STAT  (SYS_PICl+0)  /*  (R)  Status  register  (ISR  or  IRR)  */ 
/define  PIC1_MASK  (SYS_PIC1+1)  /*  (R/W)  Interrupt  mask  register  */ 

/define  SYS_PIC2  OxAO  /*  Base  of  secondary  int.  controller  */ 
/define  PIC2_CMD  (SYS_PIC2+0)  /*  (W)  Command  register  (CX:W2/OCW3)  */ 
/define  PIC2_STAT  (SYS~PIC2+0)  /*  (R)  Status  register  (ISR  or  IRR)  */ 
/define  PIC2_MASK  (SYS_PIC2-i-l )  /*  (R/W)  Interrupt  mask  register  "/ 

/define  PICC_EOI  0x20  /*  OCW2  (nonspecific)  End-Of-Interrupt  */ 


/*  command  */ 

/* 

Local  Macros: 

*/ 


/define  PtrToLong(p)  ( ( ( long)FP_SEG(p)  «  4)  +  ( long)FP_OFF(p) ) 
/*  Macro  to  convert  far  pointer  to  */ 

/*  20-bit  absolute  address  */ 
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#de£ine  DisaibleDina  (ch)  outp  (DMA_WSMR,  (ch)-i-4)  /*  Disable  DMA.  channel  */ 
#define  EnableDma ( ch)  outp {DMA_WSMR,  (ch))  /*  Ened}le  DMA  channel  */ 

/*  Input  and  output  from  read-only  command  port,  a  shadow  copy  of  the  */ 
/*  port  value  is  kept  in  MidGbl.CmpPort:  */ 

#de£ine  CmdInO  (MidGbl  .CmdPort) 

#de£ine  CmdOut(val)  (outp (MID_CMD,  MidGbl .CmdPort  =  (int) (val) ) ,  \ 

outp (MID_CMD ,  MidGbl . CmdPort ) ) 

/*  .  */ 

/*  Global  variables:  */ 

/*  .  */ 

MidAqGlobalType  near  MidGbl;  /*  Global  paramater/context  variables  */ 

static  int  near  DmaPageTable [8]  =  /*  Table  of  DMA  page  register  ports  */ 

{  0x87,  0x83,  0x81,  0x82,  -1,  0x8B,  0x89,  0x8A  } ; 


#define  INTF_LENGTH  1024  /*  Length  of  the  interferogram  */ 

#define  PLIMIT  1024  /*  number  of  points  collected  from  Midac  * / 

#define  GH_LENGTH  512  /*  Bytes  in  the  global  header  */ 

#define  SH_LENGTH  64  /*  Bytes  in  the  subfile  header  */ 

#define  FEND  79  /*  set  the  key  to  terminate  program  */ 

#define  DELAY_LENGTH  256 

main (argc, argv) 
int  argc; 
char  *argv[]  ; 

{ 

int  MidAqInitO  ,  MidAqSetGain  ()  ; 
void  MidAqStartScanO  ; 

float  raw_buf [IHTF_LENGTH] ,  intf_buf [INTF_LENGTH] ,  f lt_buf [SEG_LENGTH1] ; 
float  plinearO,  kalnuuiO; 

float  delay [DELAY_LENGTH] ,  dsc_result,  kal_result=0 . 0 ; 
int  f burst ( ) ; 

int  scans- 1,  index,  burst,  i,  loopsO,  igains-i; 
char  ch; 

voidderivO,  rotateO,  normal  ()  ,  filterO  ,  lets_see_it  {)  ; 
void  logoegaO,  grf_results  0  ; 

FILE  ‘device,  *fp2; 
struct  global_header  gh; 
struct  scan_header  sh; 
long  time_stamp  0  ; 
unsigned  long  ta0,tal; 

/*  long  tmO , tml , tm2 , tm3 , tm4 , tm5 , tm6 , tm7 , tm8 ;  * / 

/*  int  t0=0,tl=0,t2=0,t3=0,t4=0,t5=0,t6a0,t7=0,t8=0;  */ 

if  (argc  !s  2) 

{ 

printf ("\nUsage :  mtrx  outfile\n"); 
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exit  (1)  ; 

} 


/*  identify  the  output  device  */ 
device  =  stdout; 

I*  (device  ®  stc^m;  */ 

/*  Open  a  file  connection  to  the  results  */ 
if  ( (fp2  =  fopen (argvfl] ,  "w"))  ==  NULL) 

{ 

printf  ( "Onadjle  to  open  \"%s\"\n",  argv[l]); 
exit (1)  ; 

} 

/*  Zero-fill  the  delay  line  */ 
for  (i=0;  i<DELAY_LENGTH;  i++) 
delay [i]  =  0.0; 

/*  Set  up  the  screen  */ 

_setvideomode (_ERESCOLOR) ; 

_setbkcolor(_BLUE) ; 

/*  initialize  the  Midac  interferometer  */ 
i  =  MidAqInit (  -1,  -1,  igain,  PLIMIT) ; 

if  (i) 

{ 

printf ("Error :  MidAqInit  returned  %d\n",  i) ; 
return  1; 

} 

/*  printf ("MidCol  initialized: \n" ) ; 

printf ("  DMA  Buffer  at  %Fp  =  %061X\n",  MidGbl .DmaBuf fer , 
PtrToLong  (MidGbl  .DmaiBuf fer) )  ;  */ 

/*****************************************************************/ 

I*  check  the  instrxjment  gain  --  if  too  low,  then  increase  gain 

if  too  high,  then  decrease  gain  */ 

/*  igain++; 

MidAqStartScan ( ) ; 

taO  z  (unsigned  long) clock () ; 

while  ( ! MidGbl .  DmaUSone ) 

{ 

tal  =  (unsigned  long) clock () ; 

if  ((tal-taO)  >  (unsigned  long)  (TIMEOUT  *  CLOCKS_PER_SEC) ) 

{ 

printf ("Error:  Timeout  on  DMA  conpletionXn" ) ; 
return  2 ; 

} 

} 

MidGbl .DmaActive  =  0; 

for  (index=0;  index  <  PLIMIT;  index++) 

raw  buf [index]  =  (float)  MidGbl .DmaBuf fer [index]; 
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burst  >  fbursc ^raw_buf , PLIMIT) ; 

while (fab8(raw_buf [burst] )  <«  16384.  &&  igain  <■■7) 

{ 

raw_buf [burst ]  •*  2.; 
igain++; 

} 

MidAqSetGain( igain) ; 

printf setting  the  instrument  A/D  gain  to  >  %d", igain); 

MidAqStartScan( ) ; 

taO  «  (unsigned  long)clock( ) ; 

while  ( IMidGbl.DmaDone) 

{ 

tal  *  (unsigned  long) clock( ) ; 

if  ((tal-taO)  >  (unsigned  long)  (TIMEOUT  *  CU)CKS_PER_SEC ) ) 

{ 

printf ( "Error :  Timeout  on  DMA  completion\n" ) ; 
return  2; 

} 

} 

MidGbl.DmaActive  «  0;  */ 

y**********************************«********************************y 

/*  set  up  the  main  loop  to  process  data  */ 

tloop: 

8can++; 

/*  Check  for  exit  key  */ 
if  (kbhito  1«  0) 

{ 

ch  »  getchO; 
if  (ch  «  FEND) 

{ 

fclose(fp2) ; 

_8etvideomode(_DEFAULTMOOE) ; 

/*  printf  ("\n\n"); 

printf ( "Burst/Flip:  %02d\n",  tO/scan); 

printf ( "Derivative:  %02d\n",  t 1/scan); 

printf ( "Burst  location:  %02d\n",  t2/scan); 
printf ( "Normalization:  %02d\n",  t3/8can); 
printf ( "Filter:  %02d\n",  t4/scan); 

printf ( "Discrimination:  %02d\n",  tS/scan); 
printf ( "Kalman:  %02d\n",  t6/8can); 

printf ( "Graphics:  %02d\n",  t7/scan); 

printf  ("  .«=\n"); 

printf ( "Total  time:  %02d  ticks  or  %d  mseconds\n", 

t8/scan,  (t8/scan) *55) ; 

*/ 

exit ( 1 ) ; 

} 

} 
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/*  Collect  1  sample  interferogram  trace:  */ 

MidAqStartScan ( ) ; 

taO  >  (unsigned  long)clock( ) ; 

while  (  IMidGbl.DmaDone  ) 

{ 

tal  s  (unsigned  long)clock( ) ; 

if  ((tal  -  taO)  >  (unsigned  long) (TIMEOUT  *  CLOCKS_PER_SEC) ) 

{ 

printf ( "Error :  Timeout  on  DMA  completion\n" ) ; 
return  2; 

} 

/*  maybe  do  something  else  while  waiting  */; 

} 

MidGbl.DmaActive  >0; 

/*  convert  the  integer  array  to  a  ungain  ranged  floating  array  */ 
for  (index  =  0;  index  <  INTF_LENGTH;  index++) 

raw_buf [index]  =  (float)  MidGbl.DmaBuffer[ index] ; 

/*  lets_see_it( device,  "RAV>",  raw  buf,  INTF_LENGTH) ;  */ 


/*  Flip  interferogram  if  burst  is  negative  */ 

/*  tmO  ■  time_stamp( ) ;  */ 
burst  >  fburst (raw_buf ) ; 
if  (raw_buf [burst]  <  0.0) 

{ 

for  (i-0;  i<INTF_LENGTH;  i++) 
raw_buf[i]  *■  -1.0; 

} 

/*  Calculate  the  derivative  of  the  interferogram  */ 

/*  tml  »  time_stamp( ) ;  */ 
deriv( intf_buf ,  raw_buf); 

/*  tm2  *  time_stamp( ) ;  */ 

/*  let s_see_it (device,  "DRV",  intf_buf,  INTF_LENGTH) ;  */ 

/"  find  the  burst  of  the  interferogram  */ 
burst  *  f burst ( intf_buf ) ; 

/*  tm3  ■  time_stamp( ) ;  */ 

/*  normalize  the  interferogram  */ 
normal (intf_buf) ; 

/*  tm4  ■  time_stamp( ) ;  */ 

/*  lets_see_it( device,  "NML",  intf_buf,  INTF_LENGTH) ;  */ 

/*  filter  the  short  section  */ 
f ilter ( intf_buf ,  flt_buf,  burst); 

/*  tm5  *  time_stamp( ) ;  */ 

/*  lets_see_it (device,  "FLT",  flt_buf,  SEGLENGTH);  */ 

/*  piece-wise  linear  discrimant  */ 
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d8C_result  «  plinear(flt_buf ) ; 

/*  tm6  ■  time_Btamp( ) ;  */ 

/*  kalman  filter  */ 

kal_re8ult  «  kalinan(8can,  d8c_re8ult); 

/*  tin?  *  tiine_8tamp( ) ;  */ 

if  (8can  <  DELAy_LENGTH) 
delay [8can]  =  kal_re8ult; 
elee 
{ 

for  (i-l;  i<DELAy_LENGTH;  i++) 
delay [i-1]  =  delay(i]; 
delay tDELAY_LENGTH-l)  «  kal_re8ult; 

} 

loop  »  loop  1; 

_8etactivepage( loop) ; 

_clear8creen(_GCLEARSCREEN) ; 

_8etvieworg (0,0); 
logoega(2, 12) ; 

_8etvieworg(64, 175) ; 

grf_re8ult8(8can,  kal_re8ult,  delay); 
_8etviaualpage( loop) ; 

/*  tmS  =  time_8tamp( ) ;  */ 

fprintf (fp2, "%04d  %10.5f\n",  8can,  kal_re8ult); 

/*  Update  the  timing  totale  */ 


/* 

to 

+= 

((int) 

tml 

- 

tmO) 

*/ 

/* 

burat/flip  */ 

/* 

tl 

+* 

( (int) 

tm2 

- 

tml) 

*/ 

/* 

derivative  */ 

/* 

t2 

+» 

( { int ) 

tm3 

- 

tm2) 

*! 

/* 

burat  location  */ 

/* 

t3 

+= 

((int) 

tm4 

- 

tm3 ) 

*! 

/* 

normalization  */ 

/* 

t4 

+* 

((int) 

tmS 

- 

tm4) 

*/ 

/* 

filter  */ 

/* 

ts 

+= 

((int) 

tm6 

- 

tm5 ) 

*/ 

/* 

diacrimination  */ 

/* 

t6 

+= 

((int) 

tm? 

- 

tm6) 

*/ 

/* 

kalman  filter  */ 

/* 

t? 

+= 

((int) 

tmS 

- 

tm?) 

*/ 

/* 

graphica  */ 

/* 

t8 

+= 

( ( int ) 

tmS 

- 

tmO) 

*/ 

/* 

total  time  */ 

goto  tloop; 

} 

^**************************«  function  logoega  ************************** 
/*  logoega  i8  a  function  ueed  to  create  the  CBDA  logo  for  EGA  graphica. 
The  funtion  requirea  two  parametera,  the  x  and  y  coordinatea  for  the 
firat  letter  ”C".  If  the  logo  coordinatea  are  outaide  the  exceptable 
range,  no  logo  will  be  plotted. 

author:  John  Ditillo 
modofied  by:  Bob  Kroutil 

logoega  ia  baaed  on  the  "old”  CROEC  routine  written  by 
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John  T.  Ditillo 


date:  October  1992  */ 

void  logoega(y,x) 
int  y,  x; 

< 

int  xp,  yp; 

if  (y<23  &  y>l  &  x<76  &  x>2) 

{ 

f*  draw  the  logo  *f 
_8ettextpo8ition(y,x) ; 

_outtext  { "C" ) ; 

_8ettextpo8ition(y+l,x-l) ; 

_outtext  ("B  D"); 

_8ettextpo8it ion  ( yi-2 ,  x ) ; 

_outtext  ( "A" ) ; 

/*  Calculate  first  pixel  location  */ 
yp  =  y  *  14  -  16; 
xp  -  X  *  8  -  5; 

/*  first  benzene  */ 

_moveto(xp,yp) ; 

_1 ineto ( xp-8 , yp+3 ) ; 

_1 inet o ( xp-8 , yp+ 1 3 ) ; 
_lineto(xp,yp+17) ; 

_1 ineto ( xp+8 , yp+ 13); 

_1 ineto (xp+8, yp+3) ; 

_1 ineto (xp,yp) ; 

/*  second  benzene  */ 

_moveto ( xp-8 , yp+ 13); 
_lineto{xp-16,yp+17) ; 
_lineto(xp-16,yp+27) ; 

_1 ineto ( xp-8 , yp+3 1 ) ; 
_lineto(xp,yp+27) ; 

_1 ineto (xp,yp+ 17) ; 

/*  third  benzene  */ 
_moveto(xp+8,yp+13) ; 
_lineto{xp+16,yp+17) ; 
_lineto(xp+16,yp+27) ; 

_1 ineto (xp+8, yp+3 1) ; 
_lineto{xp,yp+27 ) ; 

/*  fourth  benzene  */ 
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moveto ( xp'8 , yp+3 1 ) ; 
lineto(xp-8,yp-«-42) ; 
lineto(xp,yp+45) ; 
lineto(xp-i'8,yp-«-42) ; 
1 ineto ( xp+8 , yp+3 1 ) ; 


} 


} 

/***********************  function  gr£_re8ult8  ****************** 
#de£ine  INIT_MAX  .01 

void  grf_re8ult8  (8can,kal,buf ) 
int  8can; 
float  kal; 
float  buf [ ] ; 

{ 

char  buf  f sr [ 80 ] ; 

int  i,  X,  y,  numpta,  fir8t_x,  la8t_x,  xacale; 
float  yacale; 

atatic  float  inax«INIT_MAX; 

/*  aet  the  max  value  */ 

if  ( (fab8( (double )kal) )  >  max) 

max  >  (float)  (fab8( (double )kal) ) ; 

if  (acan  <  DELAY  LENGTH) 

{ 

numpta  acan; 
fir8t_x  *  0; 

la8t_x  =  DELAY_LENGTH-1; 

> 

elae 

{ 

numpta  -  DELAY_LENGTH; 

fir8t_x  -  acan  -  (DELAY_LENGTH-1) ; 

la8t_x  =  acan; 

} 

/*  Calculate  the  acaling  factor  */ 
yacale  >  150.0/max; 
xacale  -  512/DELAY_LENGTH; 

_moveto  (0,0);  /*  Print  the  zero  axia  */ 

_lineto  (512,0); 

_moveto  (0,150);  /*  Print  the  Y  axia  */ 

_lineto  (0,-150); 

for(i  *  0;  i  <«  512;  i  +*  64)  /‘Print  the  X  axia  tick  marka  */ 

{ 

_moveto ( i ,  5 ) ; 

_lineto(i,  0); 
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} 


for(i  »  150;  i  >=  -150;  i  -*  150)  /*  Print  the  Y  axis  tick  marks  */ 

{ 

_moveto{-4,  i); 

_linoto(0,  i); 

} 

/*  label  the  axis  */ 

sprintf (buffer, "%04d",  first_x); 

_sett extpos it ion (24,7); 

_outtext (buffer ) ; 

sprintf  (buffer, '*%04d",  last_x); 

_settextposition(24,70) ; 

_out text (buffer) ; 

sprintf (buffer, "%  5.4f",  max); 

_settextposit ion (3,0); 

_out text (buffer) ; 

sprintf  (buffer,  "%  5.4f'*,  0.0); 

_eettextposition(13,0) ; 

_outtext (buffer) ; 

sprintf (buffer, "«  5.4f",  -max); 

_settextpoeition(23,0) ; 

_outtext (buffer); 

sprintf (buffer, "SCAN;  %5d  :  %  7.5f",  scan,  kal); 

for  (i=0;  i  <  10;  i++) 
buffer [i-»-13]  *  hdmsgl[i]; 

_set text pos it ion ( 1 , 2  7 ) ; 

_outtext (buffer) ; 

sprintf (buffer, "End  key  to  exit"); 

_sett exupos it ion (24,35); 

_outtext (buffer ) ; 

/*  plot  the  data  */ 

_moveto  (0,  (int)  -(buf(0]  *  yscale)); 
for  (i*l;  i  <  numpts;  i++) 

{ 

X  >  i  *  xscale; 
y  *  (int)  -(buf[i)  *  yscale); 

_lineto  (x,y); 

> 


> 

/••*•******••••*******•*•*•*  function  fburst  *************************/ 

int  fbur8t(buf fer) 
float  buffer[]; 
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{ 


/*  int  index,  bloc; 
double  bval; 

bloc  «  0; 

bval  »  (double)  buffer[0]; 

for  (index  ■  1;  index  <  INTF_LENCTH;  index++) 
if  ( f aba ( (double)  buffer[ index] )  >  bval) 

{ 

bval  *  fabs( (double)  buffer[ index] ) ; 
bloc  «  index; 

} 

return  (bloc);  */ 

int  i,  max_loc,  inin_loc; 
float  max_val*0.0,  inin_val*0.0; 

for  (i-0;  i<INTF_LENGTH;  i++) 
if  (buffer(i]  >  max_val) 

{ 

max_val  «  buffer(i]; 
max  loc  «  i; 

} 

else  if  (buffer[i]  <  min_val) 

{ 

min__val  *  buffer(i]; 
min_loc  *  i; 

> 

if  ( f aba ( (double)  min_val)  >  max_val) 
return (min_loc ) ; 

else 

return (max_loc ) ; 


> 

y*************************** 
void  deriv(bufl,  buf2) 
float  bufl[],  buf2(]; 

{ 


function  deriv  *****************************/ 


int  i2n, in, ib, i2b; 

int  index,  isrt,  if in,  ncent; 

float  denom; 


/*  use  the  forward  difference  for  the  first  two  points  */ 
denom  >>  2.0; 
i2n  -  2; 
in  «  1; 

for  (index=0;  index  <  2;  index++,  i2n++,  in++) 
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bufl[index]  >  (-bu£2[i2n]  4.0*buf2[in]  -  3.0*bu£2[index]  )/denom; 


/*  use  the  backward  difference  for  the  last  two  points  */ 
i2b  «  INTF_LENGTH  -  4; 
ib  »  INTF_LENGTH  -  3; 
isrt  =  INTF_LENGTH  -  2; 

for  (index«lsrt;  index  <  INTF_LENGTH;  index-f-*-,  12b++,  ib++) 

bufl(index]  -  (buf2[i2b]  -  4.0*buf2{ib]  -t-3.0*buf2[index]  )/denom; 


/*  use  the  central  difference  for  the  middle  points  */ 
ncent  «  1NTF_LENGTH  -  5; 
isrt  >2; 

if in  «  1NTF_LENGTH  -  2; 

i2b  -  0? 

ib  *  1; 

in  =  3; 

i2n  -  4; 

denom  *  12.0; 

for  (index^iert;  index  <  if in;  index++,  i2n++,  in++,  ib++,  i2b++) 
bufl[index]  =  (buf2[i2b]  -  8.0*buf2(ib]  *  8.0*buf2[in]  - 
buf2[i2n] ) /denom; 


} 

Z*****************************  function  normal  ***************************** 
void  normal (buffer) 
float  buffer[]; 

{ 


int  index; 
float  ssq  >  0.0; 

for  (index^O;  index  <  1NTF_LENGTH;  index-*-*-) 
ssq  -*-«  buffer^  index]  *  buffer[  index]  ; 

if  (ssq  >  0.0) 

esq  *  INTF_LENGTH  /  8qrt(S8q); 

else 

ssq  >  1.0; 

for  (index-0;  index  <  INTF_LENGTH;  index-*-*-) 
buffer( index]  ssq; 


) 

/•***«********************  function  filter  ********************************/ 

void  f liter ( in_buf,  out_buf,  burst) 

float  in_buf(]; 

float  out_buf ( ] ; 

int  burst; 

{ 
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int  i,  j,  k; 

for  (i»0,  k«SEG_OFFSETl+bur8t-l;  i<SEG_LENGTHl;  i++,  k++) 

{ 

out_buf(i]  ■  f lt_interceptsl(i] ; 
for  (j“0;  j  <  flt_lengthl(ij ;  j++) 

out_buf(i)  +=  fIt_coef8l(i] ( j]  *  in_buft  k+f lt_of f 8etBl ( i) ( j )  ); 

> 

} 

f *************************  function  plinear  ******************************/ 
float  plinear (in_buf) 
float  in_buf{]; 

{ 


float  d8c_max>- 100.0; 
float  d8c; 
int  i,  j,  k; 

for  (i*0;  i  <  DSC_PASS1;  i++) 

{ 

d8C  s  dBC_interceptBl[i] ; 
for  (j=0;'’j  <  SEG_LENGTH1;  j++) 

dac  +*  in_buf(j]  *  d8C_coef 8l( i J ( j ] ; 

if  (dac  >  d8c_fflax) 
dac_max  =  dec; 

> 

return (dac  max); 

} 

/**************************  function  kalman  *************************•*****/ 
float  kalman (8can_num,  in_value) 
int  8can_num; 
float  in_value; 

{ 

atatic  float  aum^O.O; 

atatic  float  aumaq^O.O; 

atatic  float  q^O.O; 

atatic  float  clkipa^O.O; 

atatic  float  8igcl2,  akip; 

atatic  float  prev_input(2*KAL_WIN+l] ; 

atatic  float  beta(2*KAL_WIN+l ] ; 

int  nm,  i,  j; 

float  temp,  abaae,  akm,  kal_gain,  kal_re8ult,  clcov,  clkm; 

nm  ■  2  *  KAL_WIN  +  1; 

if  (8can_num  «■  0) 

{ 

/*  aetup  info  for  the  kalman  */ 

temp  -  3.0/(float) (KAL_WIN*(KAL_WIN+1)*(2*KAL_WIN+1) ); 
for  (i— KAL_WIN,  j»0;  I<KAL_WIN+1;  i++,  j++) 
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beta [ j ]  s  temp  *  ( £ loat )  i ; 

} 

if  (8can_num  <  KAL_SETUP) 

{ 

aum  **  in_value; 

Bumeq  +=  in_value  *  in_value; 
return (0.0) ; 

} 

else  if  (8can_num  »  KAL_SETUP) 

{ 

abaae  >  (float)  KAL_SETUP; 

Bigcl2  >  (abaae  *  aumaq  -  aum  *  8um)/(8baBe* (abaae-l.O) ) ; 
8kip  >  8lgcl2; 
return (0.0) ; 

} 

elae 

{ 

clkm  >  clkip; 

8km  >  akip  +  q; 

/*  compute  the  kalman  gain  */ 
kal^gain  *  akm  /  (akm  8igcl2); 

/*  update  the  intenaity  covariance  */ 
clcov  »  (1.0  -  kal_^gain)  *  akm; 

/*  update  the  intenaity  eatimate  */ 

kal_re8ult  *  clkm  +  kal_gain  *  (in_value  -  clkm); 

/*  update  array  of  previoua  valuea  */ 
for  (i“0;  i<nm-l;  i++) 

prev_input ( i )  =  prev_input(i+l]; 
prov_input (nm-1 )  *  in_value; 

/*  update  the  Q  eatimate  and  compute  the  moving  average  */ 
for  (i*0,  aum^O.O;  i<nm;  i++) 
aum  +*  beta ( i ]  *  prev_input ( i ] ; 

q  «  aum  *  aum; 
clkip  «  kal_re8ult; 
akip  •  clcov; 
return ( kal_reault ) ; 

} 

} 

y*************************  function  letB_Bee_it  ************** 
void  let8_8ee_it{ device,  label,  buffer,  length) 

PILE  ‘device; 
char  label[]; 
float  buffer[]; 
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int  length; 

{ 

int  i; 

if  (device  stdout)  /*  Output  to  display  */ 

{ 

fprintf (device, "\n\n\n\n") ; 
for  (i»0;  i  <  length;  i  +«  2) 

fprintf  (device,  "%8#  %4d  >  %12.3f  %s#  %4d  «  %12.3f\n'', 

label,  i-t-1,  buffer(i],  label,  i-*-2,  buf fer[i+l] ) ; 

} 

else  /*  Output  to  the  printer  */ 

{ 

fprintf (device, "\r\n\r\n\r\n\r\n") ; 
for  (i«>0;  i  <  length;  i  4) 

{ 

fprintf (device,  "%8#  %4d  »  %12.3f  %8#  %4d  «  %12.3f  ", 

label,  i+l,  buffer(i],  label,  i+2,  buf fer( i+l ] ) ; 
fprintf (device,  "%s#  %4d  «  %12.3f  %8#  %4d  >  %12.3f\r\n", 

label,  i+3,  buf fer[  i-t-2 ] ,  label,  i-f4,  buffer[i-*-3] ) ; 

} 

} 

> 

/*•*•••*******•*****«****  function  tiine_stamp  ********************** 
long  tiffle_stainp( ) 

{ 

union  REGS  regs;  /*SETUP  FOR  REGISTER  USE*/ 

long  tc; 

regs. h. ah  -  0;  /*SET  ACC  FOR  TIME  TYPE  INTERRUPT*/ 


int86(  Oxla,  tiregs,  Sregs  );  /*GENERATE  INTERRUPT  FOR  TIME*/ 
tc  ■  (((long)  regs.x.cx)  «  16)  regs.x.dx; 
return(tc);  /*RETURN  CLOCK  TICK*/ 

} 

/* - */ 

/*  in:  Allow  port  input  during  debug.  */ 

/*  This  is  necessary  for  CV  4.00 — the  "I"  command  (port  */ 

/*  input  is  bro)cen.  The  circumvention  is  to  include  a  */ 

/*  a  global  function  such  as  in()  below,  trace  at  least  */ 

/*  as  far  as  the  main()  function,  then  "7in(port)"  or  */ 

/*  "7in(port) ,x"  to  read  port  contents.  */ 

/* - */ 


int  in(  unsigned  port  ) 
{ 

int  i; 

i  ■  inp(port) ; 
return  i; 

>  /•  in  */ 
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/* - */ 

/*  loOelay:  I/O  delay  for  IBM/AT  and  clones.  */ 

/•  */ 

/*  This  dummy  function  is  used  to  generate  a  few  clocks  of  delay  */ 

/*  between  consecutive  accesses  to  certain  I/O  ports.  Basically,  */ 

/*  the  call/return  sequence  is  more  than  enough.  Assembler  */ 

/*  programs  typically  use  a  "JMP  SHORT  $+2"  instruction,  but  */ 

/*  the  MSC7  inline  assembler  doesn't  seem  to  handle  the  "$"  */ 

/*  token  very  well.  The  delay  is  necessary  on  IBM  AT  machines  */ 

/*  and  true  compatibles.  */ 

/*  */ 

/*  Needless  to  say,  allowing  this  function  to  be  inlined  would  */ 

/*  be  a  bad  idea...  */ 

/* - */ 


static  void  near  loOelay(void) 

{ 

0 

>  /*  loDelay  */ 


/* - */ 

/*  GetDmaBuf fer:  Allocate  a  byte-DMA  compatible  buffer  */ 

/*  */ 

/•  A  byte  DMA  buffer  cannot  cross  a  64K-byte  eUasolute  address  */ 

/*  boundary.  */ 

/*  */ 

/*  Returns  pointer  to  buffer  if  successful,  NULL  otherwise.  */ 

/* - */ 


void  far  *GetDmaBuffer(long  Size) 

{ 

#define  MaxTries  16  /*  Maximum  attempts  before  failure  */ 


void  far  *failed(MaxTries] , 

far  *try, 
far  ‘retry; 

unsigned  begoff,  endoff; 

int  i,  nfail^O; 

if  (Size>MAXDMA  ||  SizeoO)  return  NULL; 

for  (;;)  /*  Repeat  until  explicit  break:  */ 

{ 

try  >  malloc( (size_t)Size) ; 
if  (  try>*NULL  )  break; 

/*  Test  for  64K  block  wraparound:  */ 

begoff  *  (FP_SEG(try)  «  4)  +  FP_OFF(try); 
endoff  >  begoff  *  (unsigned) Size  -  1; 

if  (endoff  >«  begoff)  break;  /*  Success  if  all  in  1  block 
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/*  Current  attempt  crosses  boundary,  retry  if  failed  list  not  full:  */ 

if  (nfail  MaxTries) 

{ 

free(try) ; 
try  ■  NULL; 
break; 

} 

/*  Resize  current  try  to  end  on  64K  absolute  boundary  and  add  it  to  */ 
/*  the  failed  list:  */ 

retry  ■  realloc(try,  l+"begoff); 
if  (  retry  1«  NULL  ) 
try  -  retry; 
failed [nfail-»"«-]  >  try; 

} 

/*  Arrive  here  via  explicit  break.  Free  failed  attempt  pointers,  if  */ 
/*  any  and  exit.  The  try  variable  has  been  set  to  a  pointer  on  success  */ 
/*  or  to  NULL  on  error.  */ 

for(  i“0;  i<nfail;  ++i  ) 

{ 

free(  failed(i]  ); 

> 

return  try; 


#undef  MaxTries  /*  Undefine  "local”  macros  */ 

}  /*  GetDmaBuffer  */ 

/* - */ 

/*  StartDma:  Start  a  DMA  operation.  */ 

/*  */ 

/*  This  is  a  cut-down  version  to  do  input  only,  specifically  */ 

/*  using  DMA  info  in  MidGbl  structure.  */ 

/* - ./ 


void  StartDma (void) 

{ 

long  addr  «  Ft rToLong (MidGbl .DmaBuffer) ; 

int  size  «  (int)MidGbl.DmaSize; 

unsigned  ch  *  2 "MidGbl. DmaChannel; 

DisableDma( MidGbl. DmaChannel) ; 

ZoDelay();  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_MODE,  0x44-»’MidGbl .  DmaChannel ) ; 

/•  DMA  Mode:  single-block,  */ 

/"  increment  address,  */ 
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/*  no  autoinitialize,  */ 

/*  "write  transfer"  ->  cpu  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_CLRF,0) ;  /*  Set  to  receive  LSB  first  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_CTR-i-ch,  (int)size);  /*  Send  byte  count  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_CTR-»-ch,  (int)size  »  8); 

loOelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp(DMA_ADDR-i-ch,  (int)addr);  /*  Send  address  */ 

ZoOelayO;  /*  Wait  a  few  CPU  clocks  */ 

outp  ( DMA_AODR-»-ch ,  ( int )  addr  »  8 )  ; 

IoDelay();  /*  Wait  a  few  CPU  clocks  */ 

outp(MidGbl.DmaPageReg,  (int)  (addr»16) )  ; 

/*  Set  page  reg  to  top  8  bits  */ 

louelayO;  /*  Wait  a  few  CPU  clocks  */ 

EnableOma(MidGbl.DinaChannel) ;  /*  Finally,  enable  DMA  */ 

}  /*  StartDma  •/ 

/* - */ 

/*  SetIrqEnable:  Set/Reset  IRQ  enable  status  for  specified  */ 

/*  channel.  •/ 

/*  */ 

/*  Please  note  that  the  sense  of  the  "Enable”  argument  is  a  c-  */ 

/*  style  boolean.  Nonzero,  or  "true",  enables  the  channel.  This  */ 

/*  is  opposite  from  the  8259  mask  register,  where  a  1  disables  */ 

/*  the  channel  and  0  enables.  */ 

/* - */ 

void  SetIrqEnable ( 

int  IrqNumber,  /*  Interrupt  channel,  0-15  */ 


int  Enable)  /*  New  enable  status  for  this  channel  */ 

/*  0  «  disable  interrupts  */ 

/*  nonzero  »  enable  interrupts  */ 

( 

unsigned  port; 

int  mask,  val; 

if  (IrqNumber  <  8) 

{ 

port  *  PIC1_MASK;  /*  Primary  8259  port  */ 

mask  1  «  IrqNumber; 

} 

else 

{ 
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port  =  PIC2_MASK; 

mask  =  1  <<  (IrqNumber-8) ; 

} 

val  =  inp (port )  |  mask ; 
if  (Enable)  val  mask; 
outp(port,  val) ; 

}  /*  SetIrqEnable  */ 


/*  Secondary  8259  port  */ 


/*  Set  to  mask  diseUDle  */ 
h  Set  to  enable  if  requested  */ 
/*  Update  port  */ 


/*  . - .  */ 

/*  MidAqStartSc2Ln:  Start  new  data  collect  operation  */ 

/*  */ 

/*  This  is  a  skeleton  of  what  is  needed  to  begin  a  new  data  */ 

/*  scan,  or  series  of  accumulated  sceins,  on  the  Midac  FT-IR.  */ 

/*  . - .  */ 


void  MidAqStartScan (void) 

{ 

SetIrqEnable (MidGbl . IrqNum,  0); 
loDelayO  ; 

DisedsleDma (MidGbl .DmaChannel) ; 
loDelayO  ; 

StartDma ( ) ; 

SetIrqEn2Q3le (MidGbl . IrqNum,  1) ; 

/*  Set  gain  and  retrace  interferometer: 


/*  Discdsle  interrupt  chauinel  */ 

/*  Wait  a  few  CPU  clocks  */ 

/*  Disable  DMA  chauinel  */ 

/*  Wait  a  few  CPU  clocks  */ 

/*  Start  DMA  channel  */ 

/*  Enable  interrupt  chemnel  */ 


*/ 


CmdOut(  MidGbl.GainPort  j  MIDC_EOS  |  MIDC_IRQ  ) ; 
/*  Start  IRQ  clear  pulse*/ 


loDelayO  ; 

CmdOut(  CmdInO  &- (MIDC_E0S  +  MIDC  IRQ)  )  ; 

/*  Start  retrace  pulse  */ 

loDelayO  ; 

while  (inp(MID_STAT)  &  MIDS_FLYBK) ; 

CmdOut (  Cmdin ( )  |  (MIDC_EOS  +  MIDC_IRQ) ) ; 
loDelayO  ; 


/*  Wait  a  few  CPU  clocks*/ 
/*  End  IRQ  clear  pulse,  */ 

/*  Wait  a  few  CPU  clocks*/ 
/*  Wait  for  turnaround  */ 
/*  End  retrace  pulse  */ 
/*  Wait  a  few  CPU  clocks*/ 


/*  Note:  May  need  to  insert  delay  here,  10-20ms,  to  allow  for  */ 

/*  hardware  bug  in  Midac  interface  causing  early  DMA  requests.  */ 

_asm  xor  cx , cx 
here:  _asm  loop  here 

MidGbl .DmaActive  =1;  /*  Set  global  DMA  status  flags  */ 

MidGbl .DmaDone  =  0; 

CmdOut (  Omdin 0  |  MIDC_DMA  );  /*  Enable  DMA  at  interface  */ 


}  /*  MidAqStartScan  */ 
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/*  .  */ 

/*  MidAqDmaDone :  Interrupt  HoU^dler  for  DMA  completion  */ 

/*  */ 

/*  This  version  simply  notes  DMA  completion,  retraces  the  */ 

/*  interfercwieter,  and  disoiblee  DMA  at  both  the  8237  euid  at  */ 

/*  the  Midac  interface  board.  This  would  be  the  natural  place  */ 

/*  to  insert  co-add  logic  for  averaging  interferograms.  */ 

/*  .  .  */ 

void  _cdecl  _interrupt  far  MidAqOmaiDone  (void) 

{ 

MidGbl .DmaDone  =1;  /*  Note  DMA  completion  */ 

CmdOut(  CmdInO  &-MIDC_DMA  ) ;  /*  Disable  DMA  at  interface  */ 

DisableDma  (MidGbl  .DmaCheuinel)  ;  /*  then  disedsle  channel  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 

/*  Retrace  interferometer:  */ 

CmdOut(  CmdInO  |  (MIDC_EOS  +  MIDC_IRQ)  ) ;  /*  Start  IRQ  clear  pulse*/ 

CmdOut(  CmdInO  &- (MIDC_EOS  +  MIDC_IRQ)  ) ;  /*  End  IRQ  clear  pulse,  */ 

/*  Start  retrace  pulse  */ 

_enable();  /*  Interrupts  on  now  */ 

while  (inp (MID_STAT)  &  MIDS_FLYBK) ;  /*  Wait  for  turnaround  */ 

CmdOut(  CmdInO  |  (MIDC_EOS  +  MIDC_IRQ) ) ;  /*  End  retrace  pulse  */ 

/*  This  is  the  place  to  put  co-add  logic  and  possibly  start  the  */ 
/*  DMA  controller  for  a  new  scan.  Note  that  the  instrument  will  */ 
/*  scan  auiyway--the  decision  is  whether  or  not  to  collect  the  data.  */ 

/*  Note;  May  need  to  insert  delay,  10-20ms,  to  allow  for  */ 

/*  hardware  bug  in  Midac  interface,  if  another  seem  is  to  be  */ 

/*  started  here.  */ 

outp(PICl_CMD,  PICC_EOI) ;  /*  Issue  EOI  to  master  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 

if  (MidGbl . IrqNum  >  7)  /*  If  interrupt  is  on  slave  */ 

outp (PIC2_CMD,  PICC_EOI) ;  /*  then  issue  secondary  EOI 

}  /*  MidAqDmaDone  */ 

/*  .  .  */ 

/*  MidAqSetGain:  Set  Signal  Gain  */ 

/*  */ 

/*  .  .  */ 

int  MidAqSetGain (int  SignalGain) 

{ 

int  gainport  =  ((-SignalGain  <<  MIDC_GSHIFT)  &  MIDC_GMASK) ; 
int  oldgain  =  MidGbl .GainVal; 
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if  {SignalGain<0  | |  SignalGain>7) 
return  - 1 ; 

CmdOut  (gainport  1  (CmdlnO  &  -MIDC_GMASK) )  ; 
MidGbl .GainVal  =  SignalGain; 

MidGbl -GainPort  =  gainport; 
return  oldgain; 

}  /*  MidAqSetGain  */ 


/*  . . . - .  */ 

/*  */ 

I*  MidAqTerm:  Data  collect  termination  */ 

/*  */ 

/*  This  function  is  not  explicitly  called,  but  is  called  at  */ 

/*  program  termination  via  the  atexitO  facility.  The  primary  */ 

/*  task  is  to  disable  DMA  euid  the  terminal  count  interrupt  auid  */ 

/*  restore  the  IRQ  vector.  */ 

/*  . - .  */ 


void  MidAqTerm (void) 

{ 

SetlrqEnedale  (MidGbl .  IrqNum,  0); 

DisableDma (MidGbl .DmaChannel) ; 

CmdCXit  (MIDC_EOS)  ; 
loDelayO  ; 

if  (MidGbl. OldIrqVec  !=  lJULL) 

{ 

_dos_setvect (MidGbl . IrqVecNo,  MidGbl .OldIrqVec) ; 
MidGbl. OldIrqVec  =  NULL; 

} 

}  /*  MidAqTerm  */ 


/*  .  */ 

/*  MidAqInit:  Initialize  Midac  interface  for  data  collect  */ 

/*  */ 

/*  The  arguments  to  this  function  provide  for  setup  parameters  */ 

/*  and/or  nonstandard  interface  board  configurations.  Each  is  */ 

/*  either  a  nonnegative  integer  value,  or  -1  to  use  the  */ 

/*  predefined  default  value.  */ 

/*  */ 

/*  The  first  two  arguments  (DmaChannel,  IrqNumber)  describe  the  */ 

i*  configuration  of  the  Midac  interface  board.  Current  interface  */ 

/*  boards  are  hardwired  for  DMA  channel  1  and  are  jumper  */ 

/*  selectable  to  use  either  IRQ2  or  IRQ3 .  Other  options  could  */ 

/*  conceiveUDly  be  possible  for  unusual  custom  requirements.  */ 

/*  In  general,  however,  such  a  modified  interface  board  would  */ 


/*  DiscdDle  interrupt  cheuinel  */ 
/*  Disable  DMA  channel  */ 
/*  Reset  the  interferometer  */ 
/*  Wait  a  few  CPU  clocks  */ 
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/*  be  incompatible  with  existing  SpectraCalc  and  LabCalc  drivers.  */ 

/*  */ 

/*  The  buffer  size  argument  (MaxPoints)  is  necessary  to  allocate  */ 

/*  a  DMA  buffer.  This  buffer  has  the  hardware-enforced  */ 

/*  requirement  to  not  cross  a  64K-byte  absolute  memory  boundary.  */ 

/*  This  is  the  strictest  dynamic  allocation  requirement  in  a  */ 

/*  typical  data  collect  application,  and  should  be  done  first.  */ 

/*  If  co-addition  of  interferograms  is  to  be  performed,  this  is  */ 

/*  might  be  a  good  place  to  allocate  an  accumulator  buffer  as  */ 

/*  well.  */ 

/*  */ 

/*  The  gain  argument  (SignalGain)  provides  the  initial  signal  */ 

/*  gain  level  for  programming  the  interface.  This  value  is  */ 

/*  subject  to  change  during  program  operation,  but  some  initial  */ 

/*  value  is  required.  */ 

/* - */ 


int  MidAqInit( 


int 

DmaChannel, 

/* 

int 

IrqNumber, 

/* 

int 

SignalGain, 

/* 

int 

MaxPoints) 

/* 

int 

i,  dmachan. 

irqnum 

DMA  channel  number,  0-3 

PC/ ISA  interrupt  channel  number 

Signal  gain  level,  0-7 

Max  data  points  in  collect  buffer 

maxpte,  gainval,  gainport; 


*/ 

V 

*  ' 

*/ 


/*  Translate  and  validate  input  paramters... 


*/ 


dmachan 

irqnum 

gainval 

maxpts 


s  0maChannel>«0  ?  OmaChannel  :  DMA; 
a:  IrqNumber  >3=0  7  IrqNumber  :  IRQ; 

«  SignalGain>«0  ?  SignalGain  :  GAIN; 

-  MaxPoints>=0  7  MaxPoints  :  BUFPTS; 


if  (dmachan  !=  DMA)  return  -1;  /*  ***temp***  need  to  know  page  */ 

/*  register  addresses  for  other  */ 

/•  DMA  channels  to  generalize  */ 

/*  this  for  other  byte  channels  */ 


if 

if 

if 

if 


(dmachan<0  |i  dmachan>3) 
return  -1; 

(irqnum<0  ||  irqnum>15) 
return  -1; 

(gainval<0  | |  gainval>7) 
return  -1; 

(maxpts<l  II  maxpts>(MAXDMA  /  2)) 
return  -1; 


/*  Bring  the  hardware  interface  to  idle  state:  */ 

gainport  =  ('gainval  «  MIDC_GSHIFT)  &  MIDC_GMASK; 

/*  Compute  inverted  gain  val  */ 

MidGbl.GainVal  «  gainval;  /•  Save  requested  gain  */ 

MidGbl .GainPort  >>  gainport;  /*  Save  port  image  */ 
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CmdOut (ga inport  |  MIDC_EOS);  /*  Set  gain,  DMA  off,  and  */ 

/*  EOS, IRQ  strobes  off.  */ 

SetIrqEnable(irqnum,  0);  /*  Disable  interrupt  channel  */ 

DisableDma(dmachan) ;  /*  Disable  DMA  channel  */ 

loDelayO;  /*  Wait  a  few  CPU  clocks  */ 

/*  Initialize  DMA:  */ 


MidGbl . DmaDone  *  0 ; 

MidGbl.DmaActive  *  0; 

MidGbl. MaxPoints  >  maxpts; 

MidGbl . DmaChannel  *  dmachan; 

MidGbl . DmaPageReg  «  DmaPageTable [ dmachan ] ; 

MidGbl. DmaSize  >  (long)ffiaxpt8  *  sizeof (unsigned  short); 

MidGbl. DmaBuffer  »  GetDmaBuffer (MidGbl. DmaSize ) ; 

if  (MidGbl. DmaBuffer  --  NULL) 
return  -1; 

for  (i=0;  i<maxpt8;  ++i)  /*  Put  recognizable  null  data  */ 

MidGbl. DmaBuffer[i]  >  OxEEEE;  /*  in  buffer  for  debug  */ 

/*  Initialize  IRQ  channel  */ 

MidGbl. IrqNum  »  irqnum; 

MidGbl. I rqVecNo  ■  (irqnum<8  ?  0x08  ;  0x68)  +  irqnum; 

MidGbl. OldIrqVec  ■  _do8_getvect (MidGbl. IrqVecNo) ; 

_do8_eetvect (MidGbl . IrqVecNo,  MidAqDroaDone) ; 

atexit (MidAqTerm) ; 

return  0; 

}  /*  MidAqInit  */ 
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Program  MTRXD 


This  progreun  is  a  "C"  version  of  the  TESTWV  program  located 
on  the  Silicon  Graphics  computer.  This  program  will  process 
interferograms  collected  on  disk  and  display  the  result 
of  the  filtering  and  pattern  recognition. 

author  of  modified  C  version:  Bob  Kroutil 

date:  October  1992  */ 


I* 


/ 


#include 

#include 

#include 

/include 

/include 

/include 

/include 

/include 

/include 

/include 


<atdio.h> 

<fcntl.h> 

<math.h> 

<bios. h> 
<graph.h> 

<dos. h> 
"headers.def " 
"mtrx.def " 
"filterl. inc" 
"discriml. inc" 


/*  include  the  filter  coefficients  */ 

/*  include  the  pattern  recognition  coefficients  */ 


/define  INTF_LENGTH  1024  /* 

/define  GH_LiNGTH  512  /* 

/define  SH~LENGTH  64  /* 

/define  FEND  79 
/define  DELAY  LENGTH  256 


Length  of  the  inter ferogram  */ 
Bytes  in  the  global  header  *f 
Bytes  in  the  subfile  header  */ 


main(argc,argv) 
int  argc; 
char  *argv(]; 


float  raw_buf (INTF_LENGTH) ,  intf_buf [ INTF_LENGTH] ,  flt_buf [SEG_LENGTH1] ; 
float  plinear(),  kalman(); 

float  delay[DELAY_LENGTH] ,  dsc_result,  kal_result«0.0; 
int  f burst ( ) ; 

int  raw_data [ INTF_LENGTH ] ; 
int  scan,  index,  burst,  i,  loop>0; 
int  fpl; 
char  ch; 

void  deriv(),  rotate(),  normal(),  filterO,  lets_see_it( ) ; 
void  logoega ( ) ,  grf_results ( ) ; 

FILE  ‘device,  *fp2; 
struct  global_header  gh; 
struct  scan_header  sh; 
long  time_stamp( ) ; 

long  tmO , tml , tm2 , tm3 , tm4 , tmS , tm6 , tm7 , tmS ; 
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int  t0=0,tl=0,t2=0, t3=0, t4=0, t5=0,t6=0,t7=0, t8=0; 

union  REGS  inregs;  /*  REG  structure  for  timing  input  */ 

union  REGS  outregs;  /*  REG  structure  for  timing  output  */ 

if  (argc  !=  3) 

{ 

printf ( " \nUsage :  mtrxd  infile  outfile\n") ; 
exit (1) ; 

} 

/*  pronpt  user  for  the  output  device  */ 

/*  printf ( "Enter  the  desired  output  device  for  intermediate  results\n") 
printf (" (S) creen  or  (P)rinter  >>  "); 
ch  =  getchar ( ) ; 
while  (getcharO  !  =  '\n'); 
if  (ch  ==  'P'  I  ch  =='p') 
device  =  stdpm; 
else 

device  =  stdout;  */ 
device  =  stdout; 


/*  Open  a  file  connection  to  the  Midac  data  file  */ 
if  ( (fpl  =  open(argv[l] ,  0_RD0NLY|0  BINARY))  <  0) 

{ 

printf ("\n\"mtrxd\"  is  unedsle  to  open  %s\n",argv[l] ) ; 
exit (1) ; 

} 

/*  Open  a  file  connection  to  the  results  */ 
if  ( (fp2  =  fopen (argv [2] ,  "w"))  ==  NULL) 

{ 

printf  ( "Unadjle  to  open  \"%s\"\n",  argv[2]); 
exit (1)  ; 

} 

else 

fprintf  (fp2 ,  "%s\n" ,  argvtU); 

/*  Zero- fill  the  delay  line  */ 
for  (i»0;  i<DELAY_LENGTH;  i++) 
delay [i]  =  0.0; 

/*  Set  up  the  screen  */ 

_setvideomode (_ERESCOLOR) ; 

_8etb)tcolor  (_BLUE)  ; 

/*  read  in  the  global  header  */ 
read (fpl,  &gh,  GH_LENGTH) ; 

for  (scaui  =  0;  scan  <  gh. stop_8can;  scam++) 

{ 
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/*  if  using  a  486  computer  then  delay  each  calculation  for 
display  purposes  —  remove  this  section  for  386  version  */ 
inregs.h.ah  «  0x86;  /*  delay  service  */ 

inregs.x.cx  *  5;  /*  set  high  order  delay  word  */ 

inregs.x.dx  *  0;  /*  set  low  order  delay  word  */ 

int86  (OxlS,&inregs,&outregs) ;  /*  call  to  ROM  BIOS  timer  delay  service  */ 

/*  Check  for  exit  key  */ 
if  (kbhito  !»  0) 

{ 

ch  >  getch( ) ; 
if  (ch  »«  FEND) 

{ 

fclose(fp2) ; 
close ( fpl) ; 

_setvideomode(_DEFAULTMODE) ; 
exit(l) ; 

} 

} 

read(fpl,  fish,  SH_LENGTH);  /*  read  the  subfile  header  */ 

read(fpl,  raw_data,  INTF_LENGTH*2 ) ;  /*  read  the  subfile  data  */ 

/*  convert  the  integer  array  to  a  ungain  ranged  floating  array  */ 
for  (index  »  0;  index  <  INTF_LENGTH;  index++) 
raw_buf (index]  =  (float)  raw_data ( index J ; 

/*  let8_see_it (device,  "RAW",  raw_buf,  INTF_LENGTH ) ;  */ 


/*  Flip  interferogram  if  burst  is  negative  */ 
tmO  *  time_8tamp( ) ; 
buret  s  fbur8t(raw_buf ) ; 
if  (raw_buf [burst]  <  0.0) 

for  (i«0;  i<INTF_LENGTH;  i++) 
raw_buf[i]  *»  -1.0; 

/*  Calculate  the  derivative  of  the  interferogram  */ 
tml  time_8tamp( ) ; 
deriv( intf_buf ,  raw_buf ) ; 
tm2  «  time_stamp( ) ; 

/*  let e_8ee_it (device,  "DRV",  intf_buf,  INTF_LENGTH ) ;  */ 

/*  find  the  burst  of  the  interferogram  */ 
burst  »  fbur8t(intf_buf ) ; 
tm3  >  time_8tamp( ) ; 

/*  normalize  the  interferogram  */ 
normal ( intf_buf ) ; 
tm4  >  time_8tamp( ) ; 

/*  let8_8ee_it( device,  "NML",  intf_buf,  INTF_LENGTH) ;  */ 


Appendix  H 


182 


/*  filter  the  short  section  */ 
filter(intf_buf ,  flt_buf,  burst); 
tmS  >■  time_stainp( ) ; 

/*  let s_see_it (device,  "FLT",  flt_bu£,  SEG_LENGTH); 

/*  piece-wise  linear  discrimant  */ 
dsc_result  *  plinear (£lt_bu£) ; 
tm6  •  time_stamp( ) ; 

/*  kalman  filter  */ 

kal_result  >  kalman(scan,  dsc_result); 
tin?  >  tiine_etanip( ) ; 

if  (scan  <  DELAy_LENGTH) 
delay [scan]  >  kal_result; 
else 
{ 

for  (i»l;  i<DELAY_LENGTH;  i++) 
delay(i-l]  «  delay(i]; 
delay[DELAy_LENGTH-l]  -  kal_result; 

} 

loop  «  loop  1; 

_eetactivepage( loop) ; 

__clear screen  (_GCLEARSCREEN) ; 

_setvieworg (0,0); 
logoega( 2, 12); 

_^setvieworg(64, 175) ; 
grf_results(ecan,  kal_result,  delay); 
_setvisualpage(loop) ; 
tmS  s  time_stamp( ) ; 

fprintf (fp2, "%04d  %10.5f\n",  scan,  kal_result); 


/* 

Update  the  timing  totals 

•/ 

to 

+■ 

((int) 

tml 

- 

tmO) ; 

/* 

burst/flip  */ 

tl 

+» 

((int) 

tm2 

- 

tml) ; 

/* 

derivative  */ 

t2 

+» 

((int) 

tm3 

- 

CM 

E 

/* 

burst  location  */ 

t3 

+= 

((int) 

tm4 

- 

tm3 ) ; 

/* 

normalization  */ 

t4 

+■ 

((int) 

tmS 

- 

tm4) ; 

/* 

filter  •/ 

t5 

+■ 

((int) 

tm6 

- 

tmS); 

/* 

discrimination  */ 

t6 

+» 

((int) 

tm? 

- 

tm6) ; 

/* 

kalman  filter  */ 

t? 

+■ 

((int) 

tmS 

- 

tm?) ; 

/* 

graphics  */ 

ts 

((int) 

tm8 

- 

tmO) ; 

/• 

total  time  */ 

} 

c lose (f pi) ; 
fclose(fp2) ; 

_setvideoinode(_OEFAULTMODE) ; 
printf ("\n\n") ; 

printf( "Burst/Flip:  %02d\n",  tO/scan); 

printf ("Derivative:  %02d\n”,  tl/scan); 
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pr int  f ( " Bur at  locat ion : 
printf ( "Normalization: 
printf ("Filter: 
printf ( "Discrimination: 
printf ( "Kalman: 
pr  int  f ( " Graph ice: 
printf ( " 

printf ("Total  time: 


%02d\n",  t2/scan); 

%02d\n",  t3/8can); 

%02d\n",  t4/scan) ; 

%02d\n",  tS/scan); 

%02d\n",  t6/scan); 

%02d\n",  t7/scan); 

»*==\n") ; 

%02d  ticks  or  %d  mseconds\n". 


t8/scan,  (tS/scan) *55) ; 


} 

/**•***********•************  function  logoega  ************************** 
/*  logoega  is  a  function  used  to  create  the  CBDA  logo  for  EGA  graphics. 
The  funtion  requires  two  parauneters,  the  x  and  y  coordinates  for  the 
first  letter  "C".  If  the  logo  coordinates  are  outside  the  exceptable 
range,  no  logo  will  be  plotted. 

author:  John  Ditillo 
modified  by:  Bob  Kroutil 

logoega  is  based  on  the  "old"  CROEC  logo  program 
written  by  John  T.  Ditillo 

date:  October  1992  */ 

void  logoega (y,x) 
int  y,  x; 

{ 

int  xp,  yp; 

if  (y<23  &  y>l  &  x<76  &  x>2) 

{ 

/*  draw  the  logo  */ 

_settextposition(y,x) ; 

_outtext  ( "C" ) ; 

_8ettextpo8ition(y+l , x-1 ) ; 

_outtext  ("B  D"); 

_settextposition(y»-2,x) ; 

_outtext  ( "A" ) ; 

/*  Calculate  first  pixel  location  */ 

yp  >  y  *  14  -  16; 

xp»x*8-5; 

/*  first  benzene  */ 

_moveto(xp,yp) ; 

_lineto(xp-8,yp+3) ; 

_lineto(xp-8,yp+13) ; 
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_^lineto{xp,yp+17) ; 
_lineto(xp+8,yp+13) ; 

ineto { xp+8 , yp+3 ) ; 
_lineto(xp,yp) ; 

/*  second  benzene  */ 
_moveto(xp-8,yp+13) ; 
_lineto(xp-16,yp+17) ; 
__lineto(xp-16,yp+27) ; 
__1  ineto  ( xp-8 ,  yp+3 1 ) ; 
__lineto(xp,yp+27) ; 
_llneto(xp,yp+17) ; 

/*  third  benzene  */ 
_moveto(xp+8,yp+13) ; 
_lineto(xp+16,yp+17) ; 
_lineto(xp+16,yp+27) ; 
_1  ineto (xp+8, yp+3 1) ; 
_lineto(xp,yp+27) ; 

/*  fourth  benzene  */ 
_moveto ( xp-8 , yp+3 1 ) ; 
_1 ineto ( xp-8, yp+42) ; 
_lineto(xp,yp+45) ; 

ineto (xp+8, yp+42) ; 
_1 ineto (xp+8, yp+3 1) ; 


) 


> 

/*•****•***•*******•****  function  grf 
/define  INIT_MAX  .01 

void  grf_result8  (8can,kal,buf ) 
int  scan; 
float  kal; 
float  buf [ ] ; 

{ 

char  buffer(80]; 

int  i,  X,  y,  numpts,  fir8t_x,  last^x 
float  yscale; 

static  float  maxslNIT_MAX; 

/*  set  the  max  value  */ 

if  ( (fabs( (double )kal) )  >  max) 

max  *  (float)  (fabs( (double)kal) ) ; 

if  (scan  <  DELAY_LENGTH) 

{ 

numpts  «  scan; 
fir8t__x  »  0; 

last  X  -  DELAY  LENGTH-1; 


results 


xscale 
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> 

else 

{ 

numpts  «  DELAY_LENGTH; 

first_x  -  Bcan~-  (DELAY_LENGTH-1) ; 

laBt_x  *  scan; 

} 

/*  Calculate  the  scaling  factor  */ 
yscale  >  150.0/max; 

XBcale  «  512/DELAY_LENGTH; 

_moveto  (0,0);  /*  Print  the  zero  axis  */ 

_lineto  (512,0); 

_inoveto  (0,150);  /*  Print  the  Y  axis  */ 

_lineto  (0,-150); 

for(i  ■  0;  i  <»  512;  i  +«  64)  /‘Print  the  X  axis  tick  marks  */ 

{ 

_moveto ( i ,  5 ) ; 

_lineto(i,  0); 

> 

for(i  *  150;  i  >=  -150;  i  -»  150)  /*  Print  the  Y  axis  tick  marks  */ 

< 

_moveto(-4,  i); 

_lineto(0,  i); 

} 


/*  label  the  axis  */ 

sprintf (buffer, "%04d" ,  first_x); 

_settextposition(24,7) ; 

_out text (buffer) ; 

sprintf  (buffer,  "%04d'' ,  last_x); 

_settextpoeition(24,70) ; 

_outtext( buffer) ; 

sprintf (buffer, "%  5.4f",  max); 

_set text posit ion (3,0) ; 

_out text (buffer) ; 

sprintf  (buffer ,  ”%  5.4f'',  0.0); 

__sett  extpos  ition(13,0); 

_outtext( buffer) ; 

sprintf (buffer, ”%  5.4f",  -max); 

_settextposition(23,0) ; 

_outtext (buffer) ; 

sprintf (buffer, "SCAN:  %5d  :  %  7.5f",  scan,  kal); 

for  (i  *0;  i  <  10;  i++) 
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buf  f  er  ( 1+13  ]  *hclmsgl  ( i  ] ; 

_s«ttextpo8it ion ( 1 , 27 ) ; 

_outt«xt (buffer) ; 

■printf (buffer, "End  key  to  exit"); 
_eettextpoeit ion (24,35); 

_out text (buffer) ; 

/*  plot  the  data  */ 

_iDoveto  (0,  (int)  -(buftOJ  *  yscale)); 
for  (i“l;  i  <  numpta;  i++) 

{ 

X  >  i  *  xacale; 
y  ■  (int)  -(buf(i]  *  yacale); 
_linoto  (x,y); 

} 


> 

^**********************«****  function  fburst 
int  fburst (buffer) 
float  buffer(]; 

{ 

/*  int  index,  bloc; 
double  bval; 

bloc  «  0; 

bval  •  (double)  buffer(0]; 

for  (index  «  1;  index  <  INTF_LENGTH;  index-*--*-) 
if  (fabs( (double)  buffer[ index] )  >  bval) 

{ 

bval  >  fabs( (double)  buffer] index] ) ; 
bloc  <■  index; 

> 

return  (bloc);  */ 

int  i,  max_loc,  inin_loc; 
float  max_val>0.0,  min_val>0.0; 

for  (i-0;  i<lNTF_LENGTH;  i-*--*-) 
if  (buffer(i]  >  max_val) 

{ 

max_val  «  buffer[i]; 
max  loc  >  i; 

> 

else  if  (buffer] i]  <  min  val) 

{ 

min_val  «  buffer]!]; 
min  loc  >  i; 

> 
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if  ( f aba ( (double)  tnin_jval)  >  max  val) 
return ( min_loc ) ;  ~ 

else 

return ( max_loc ) ; 


> 

/****•**********************  function  deriv 
void  deriv(bufl,  buf2) 
float  bufl(],  buf2(); 

{ 


int  i2n,in,ib,i2b; 

int  index,  iart,  ifin,  ncent; 

float  denom; 

/*  uae  the  forward  difference  for  the  firat  two  point a  */ 
denom  «  2.0; 
i2n  -  2; 
in  ■  1; 

for  (index«0;  index  <  2;  index++,  i2n++,  in-i-t-) 
bufl(index]  -  (-buf2(i2n)  +  4.0*buf2{inl  -  3.0*buf2[index) )/denom; 


/*  uae  the  backward  difference  for  the  laat  two  pointa  */ 
i2b  -  INTF^LENGTH  -  4; 
ib  ■  1NTF_LENGTH  -  3; 
iart  «  1HTF_LENGTH  -  2; 

for  (indox«Iart;  index  <  INTF_LENGTH;  index++,  i2b++,  ib++) 
bufl(index]  «  (buf2ti2b)  -  4.0*buf2(ibl  +3.0*buf2[index] )/denom; 


/*  uae  the  central  difference  for  the  middle  pointa  */ 
ncent  ■  INTF  LENGTH  -  5; 
iart  -  2; 

ifin  ■  INTF_LENGTH  -  2; 

i2b  *  0; 

ib  ■  1; 

in  ■  3; 

i2n  «  4; 

denom  ■  12.0; 

for  (index>iart;  index  <  ifin;  index-*-*-,  i2n-*-*-,  in-f-*-,  ib++,  i2b-*-*-) 
bufl(index)  -  (buf2(i2b)  -  8.0*buf2(ibJ  ♦  8.0*buf2finl  - 
buf2(i2n] ) /denom; 


} 

/*******)********************, ^  function  normal 
void  normal (buffer) 
float  buffer(]; 

{ 


Lnt  index; 
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float  aaq  >  0.0; 


for  (index-0;  index  <  INTF_LENGTH;  index-f-t-) 
esq  ■«—  buffer  [index]  *  buffer  [index]; 

if  (esq  >  0.0) 

esq  «  INTF  LENGTH  /  Bqrt(B8q); 

elBe 

BBq  «  1.0; 

for  (index-0;  index  <  XNTF_LENGTH;  index-f-f) 
buffer [index]  *-  eeq; 


} 

/*************•**********•  function  filter  ******************************** 

void  filter (in_buf,  out_buf,  buret) 

float  in_buf[]; 

float  out_buf [ ] ; 

int  buret; 

{ 

int  i,  j,  k; 

for  (i-0,  k-SEG  OFFSETl+buret-l;  i<SEG  LENGTHl;  i++,  k++) 

{ 

out_buf [ i ]  -  f lt_interceptBl [ i ] ; 
for  (j-0;  j  <  flt_lengthl[i];  j++) 

out  buf[i]  ♦-  fit  coefel[i][j]  *  in  buf[  k+flt  offBetBl[i] [ j ]  ]; 

> 

} 

/•«*«**«*****«««««*«******  function  plinear  ******************************/ 
float  plinear (in_buf) 
float  in_buf [ ] ; 

{ 


float  dec_max— 100.0; 
float  dac; 
int  i,  j,  k; 

for  (i-0;  i  <  DSC  PASSl;  i++) 

dec  -  dec^interceptal] i] ; 
for  (j-0;~j  <  8EG_LENGTH1;  j++) 

dec  ♦-  in_buf[j]  *  d8c_coefBl[i] [ j ] ; 

if  (dec  >  d8C_max) 
dec_max  -  dac; 

> 

return (dec  max); 

> 

/*•****•*•**•*«*•*•***•****  function  kalman  ******************************* 
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float  kalman(acan_num,  in_value) 

Int  scan_num; 
float  in_value; 

{ 

static  float  8um«0.0; 

static  float  sumsq-O.O; 

static  float  q«0.0; 

static  float  clkip«0.0; 

static  float  8igcl2,  skip; 

static  float  prev_input(2*KAL_WlN+lJ ; 

static  float  beta[2*KAL_WIN-«-lT; 

int  nm,  i,  j; 

float  temp,  abase,  skm,  kal_qain,  kal_result,  clcov,  clkm; 

nm  »  2  *  KAL_WIN  +  1; 

if  (scan  num  0) 

{ 

/*  setup  info  for  the  kalman  */ 

temp  «  3.0/(float) (KAL_WIN*(KAL_WIH+1)*(2*KAL_WIN+1) ) ; 
for  (i— KAL_W1N,  j-0;  i<KAL_WlH+l;  i++,  j++)  “ 
beta[j]  «  temp  *  (float)  i; 

> 

if  (scan  num  <  KAL  SETUP) 

{ 

sum  in_value; 

sumsq  +■  in__value  *  in_value; 

return (0.0) ; 

} 

else  if  (scan  num  KAL_SETUP) 

{ 

abase  >  (float)  KAL_SETUP; 

sigcl2  «  (sbase  *  sumsq  -  sum  *  sum) /( abase* (sbase-l.O) ) 
skip  >  sigcl2; 
return (0.0) ; 

} 

else 

{ 

clkm  >  clkip; 
skm  skip  -f  q; 

/*  compute  the  kalman  gain  */ 
kal_gain  ■  skm  /  (skm  *  sigcl2); 

/*  update  the  intensity  covariance  */ 
clcov  ■>  (1.0  -  kal_gain)  *  skm; 

/*  update  the  intensity  estimate  */ 

kal_result  ■  clkm  +  kal^gain  *  (in_value  -  cl)an) ; 
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I*  update  array  of  previous  values  */ 
for  (i»0;  i<nm-l;  i++) 

prev_input ( i J  ■  prev_input[i+l]; 
prev_input[nm-lj  «  In^value; 

/*  update  the  Q  estimate  and  compute  the  moving  average  */ 
for  (i«0,  sum=0.0;  i<nm;  i-t-+) 
sum  beta(i)  *  prev_input ( i ] ; 

q  ■  sum  *  sum; 
clkip  B  kal_result; 
skip  B  clcov; 
return (kal_resu It) ; 

} 

> 

/************************•  function  letB^see_it  *************•********•****/ 
void  let s__see_it (device,  label,  buffer,  length) 

FILE  *device; 
char  label ( ] ; 
float  buffer(]; 
int  length; 

{ 

int  i; 

if  (device  b»  stdout)  /*  Output  to  display  */ 

i 

f pr int f (device, "\n\n\n\n" ) ; 
for  (IbO;  i  <  length;  i  -t-B  2) 

f pr int f (device,  "%b#  %4d  •  %12.3f  %8#  %4d  *  %l2.3f\n”, 

label,  i-t-i,  buffer[i],  label,  i+2,  buffer! i+l] ) ; 

} 

else  /*  Output  to  the  printer  */ 

{ 

f print f (device, "\r\n\r\n\r\n\r\n") ; 
for  (iBQ;  i  <  length;  i  +*  4) 

f pr int f (device,  "%8#  %4d  •  %12.3f  %b#  %4d  b  %i2.3f  ", 

label,  i-t-l,  buffer{i],  label,  i'*-2,  bufferli-fl] ) ; 
f print f (device,  "%8#  %4d  >  %i2.3f  %8#  %4d  b  %12.3f\r\n", 

label,  i*3,  buffer [i-t-2],  label,  i+4,  buffer! i-f3] ) ; 

> 

) 

> 

/**••*•**********••*••••*  function  tiaie_stamp  *****************************/ 
long  time_stamp() 

{ 

union  REGS  rags;  /•SETUP  FOR  REGISTER  USE*/ 

long  tc; 

rags. h. ah  b  Q;  /*SET  ACC  FOR  TIME  TYPE  INTERRUPT*/ 

int86(  Oxla,  Sregs,  &rege  );  /*GENERATE  INTERRUPT  FOR  TIME*/ 
tc  B  (((long)  regs.x.cx)  «  16)  *  regs.x.dx; 
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return{tc);  /•RETURN  CLOCK  TICK*/ 

> 
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APPENDIX  Z 


MIDAC  DATA  COLLECTION  AND  PATTERN  RECOGNITION  PROGRAM 
FOR  IDENTIFYING  TWO  COMPOUNDS  SIMULTANEOUSLY 

^*********************************************************************/ 

/* 

progreun  IfrRX2 


This  program  is  a  "C  version  of  the  TSSTWU  program  located  on  the 
Silicon  Graphics  coo^uter.  The  program  will  process  interferograms 
collected  on  the  Midac  unit  120  interferometer  euid  display  the 
result  of  the  filtering  and  pattern  recognition. 


author:  Bob  Kroutil,  Mike  Housky 
date:  March  1933  */ 


#include 
# include 
#include 
# include 
#include 
#include 
# include 
#include 


<stdio.h> 
<stdlib.h> 
<fcntl .h> 
<graph.h> 
<math . h> 

<time .h> 
"headers .def" 
"mtrx.def " 


#include  <stddef .h>/*  Standard  ANSI  headers*/ 
#include  <conio.h>/*  MSC-specific  headers*/ 
#include  <dos.h> 


# include 
# include 
# include 
#include 
# include 


"middef .h"/*  Midac-specific  headers*/ 

•filterl .inc"  /*  include  digital  filter  l  */ 

"discriml.inc"  /*  include  the  pattern  recognition  coefficients  1  */ 
"filter2 .inc"  /*  include  digital  filter  2  */ 

"discrim2 .inc"  /*  include  the  pattern  recognition  coefficients  2  */ 


/*  .  */ 

/*  Local  definitions:  */ 

/*  .  */ 


/*  MSC7/MSC6  Portability: 


*/ 


#ifdef  MSC_VER 
#if  MSC_VBR  >-  700 
#define  outp  _outp 
#define  inp  _inp 
#endif 
#endif 


#define  TIMEOUT  20.0 


/*  DMA  Coopletion  timeout,  in  seconds  */ 


/*  Defaults  for  MidAqInit: 


*/ 


#define  DMA  1 

«define  DMAPA6E  0x83 

/*  chzuinel 


/*  Default  DMA  channel  */ 

/*  DMA  page  register  port  for  default  */ 

*/ 
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#d«flne  IRQ 
#d«fin«  GAIN 
#d«fine  BUFPTS 

#d«fine  MAXDMA 


2  /*  Dafault  IRQ  chann*! 

0  /*  DafAult  signal  gain  laval  (0-7) 

16384  /*  Dafault  DMA  buffar  aica  in  data 

points  */ 

OxFFSO  /*  Maximum  DMA  buffar  size  in  bytes 


/*  Note:  MAXDMA  must  be  less  than  the  "ideal”  limit  of 
/*  64K  for  the  GetDmaBuffer  function  to  %fork  properly. 


System  board  (PC/AT)  I/O  definitions: 


#define  SYS  DMAl 


/”  Base  of  byte  DMA  controller 


/*  These  ports  are  channel-independent: 


/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 

/define 


DMA_STAT 

0MA_CMD 

0MA~REQ 

DMA^WSMR 

DMA~M0DE 

DMA~CLRF 

DMA_TEMP 

DMA^MCLR 

DMA~CMSK 

OMA^NAMR 


_DMA1+  8)  / 
"dMA1+  8)  / 
][dMA1+  9)  / 
”dMA1+10)  / 
^DMAl+11)  / 
||dMA1+12)  / 
’dMAI+13)  / 
]]dmA1+13)  / 
”dMA1+14)  / 
'dMAI+15)  / 


/*  These  occur  4  times,  once  for 
/*  to  get  true  port  address: 

/dafine  DMA_A0DR  (SYS_DMA1+  0)  ; 
/define  DMA^CTR  (SYs'oMAl-^  1)  ; 

/define  SYS_PXC1  0x20  t 
/define  PIcT_CMD  (SyS_PICl+0)  t 
/define  PIC1_STAT  (SYS~PICl-»-0)  i 
/define  PIC1_MASK  (SYS^PICl-:-!)  t 

/define  SYS_PIC2  OxAO  ^ 
/define  PXC2_CM0  (SYS_PIC2-f0)  ^ 
/define  PIC2“sTAT  (SYS_PIC2+0)  < 
/define  PIC2J1ASK  (SYS_PIC2-:-l)  i 


(R)  Status  register 

(W)  Command  register 

(W)  Request  register 

(W)  Write  single  mask  register 

(W)  Mode  register 

(W)  Clear  byte  pointer  flip-flop 

(R)  Temporary  register 

(W)  Master  Clear 

(H)  Clear  mask  register 

(W)  Write  all  mask  register  bits 

ach  channel.  Add  2* (channel  number) 


(R/W)  Base  or  current  address  */ 
(R/W)  Base  or  current  %rord  count  */ 

Base  of  primary  interrupt  controller  */ 
(W)  Command  register  (OCW2/OCW3)  */ 
(R)  Status  register  (ISR  or  IRR)  */ 
(R/W)  Interrupt  mask  register  */ 

Base  of  secondary  int.  controller  */ 
(W)  Command  register  (OCW2/OCW3)  */ 
(R)  Status  register  (ISR  or  IRR)  */ 
(R/W)  Interrupt  mask  register  */ 


/define  PICC  EOI 


0x20  /*  OCW2  (nonspecific)  End-Of-Xnterrupt 

command  */ 


Local  Macros: 


/define  PtrToLong(p)  ( ( (long)FP_SEG(p)  «  4)  +  (long)FP_OFF(p) ) 
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/*  Macro  to  convert  far  pointer  to 
/*  20 -bit  absolute  address 


*/ 

*/ 


#define  DiS2d}leDma(ch)  outp(DMA._HSMR,  (ch)+4)  /*  Disable  DM^  channel 

#de£ine  EneOsleDma  (ch)  outp  (DMA_WSMR,  (ch) )  /*  EneUble  DMA  channel  */ 

/*  Input  and  output  frcxn  read-only  conmiand  port,  a  shadow  copy  of  the  */ 
/*  port  value  is  kept  in  MidGbl . CmpPort :  */ 

#define  OmdlnO  (MidGbl  .CmdPort) 

#define  CmdOut(val)  (outp(MID_CMD,  MidGbl . CmdPort  =  (int)(val)),  \ 

outp  {MID_CMD,  MidGbl  .CJndPort) ) 

/*  .  */ 

/*  Global  variables:  *! 

/*  .  *! 

MidAqGlobalType  near  MidGbl;  !*•  Global  paramater/context  variedsles  */ 

static  int  near  DmaPageTable [8]  =  /*  Tedale  of  DMA  page  register  ports  */ 

{  0x87,  0x83,  0x81,  0x82,  -1,  0x8B,  0x89,  0x8A  }; 


#define  INTF_LENGTH  1024 
#define  PLIMIT  1024 
#define  GH_LENGTH  512 
#define  Sh”lENGTH  64 
#define  FE^  79 
#define  DELAY.LENGTH  256 

main (argc, argv) 
int  argc; 
char  *argv  []  ; 

{ 

int  MidAqlnit  0  ,  MidAqSetGain  ( )  ; 
void  MidAqStartScanO  ; 

float  raw_buf  [INTF_1.ENGTH]  ,  intf_buf  tINTF_LENGTH]  ,  f  lt_buf  [SEG_LENGTH1]  ; 
float  flt_buf2  tSEG_l.ENGTH2]  ; 
float  plinear2(),  kalmeuiO; 

float  delay [DELAY_LENGTH] ,  dsc_result,  kal_result*0.0; 
float  delay2 IDBLAY_LBNGTH] ,  dsc_re8ult2,  kal_result2.0 .0; 
int  fburstO; 

int  scan>-l,  index,  burst,  i,  loopsO,  igain*-l; 
char  ch; 

void  derive ) ,  rotate () ,  normal () ,  filter2 () ,  lets_Bee_it ( ) ; 
void  logoegaO  ,  grf_results2  ()  ; 

FILE  ‘device,  *fp2,  *fp3; 
struct  global_header  gh; 
struct  scan_header  sh; 
long  time_stainp()  ; 
unsigned  long  ta0,tal; 

/*  long  tmO , tffll , tm2 , tm3 , tm4 , tm5 , tm6 , tm7 , tm8 ;  */ 


/*  Length  of  the  interferogram  */ 

/*  number  of  points  collected  from  Midac  */ 
/‘  Bytes  in  the  global  header  */ 

/*  Bytes  in  the  subfile  header  */ 

/*  set  the  key  to  terminate  program  */ 


Appendix  I 


195 


/*  int  t0=0,tl=0,t2=0,t3=0,t4=0,t5=0,t6=0,t7«0,t8-0;  */ 

if  (argc  Is  3) 

{ 

printf ( " \nUsage :  mtrx  outfilel  outfile2\n") ; 
exit (1) ; 

} 


/•  identify  the  output  device  */ 
device  s  stdout; 

/*  device  s  stdprn;  */ 

/*  Open  a  file  connection  to  the  results  */ 
if  { {fp2  s  f open (argv [1] ,  "w"))  s-  NULL) 

{ 

printf  ( "Un2d)le  to  open  \"%s\"\n",  argv[l]); 
exit  (2) ; 

} 

if  ( (fp3  s  fopen(argv[2]  ,  "w"))  s:=  NULL) 

{ 

printf ("Unable  to  open  \"%s\"\n",  argvt2]); 
exit (3) ; 

} 

/*  Zero-fill  the  delay  line  */ 
for  (i=0;  i<DELAy_ LENGTH;  i++) 
delay [i]  =  0.0; 

/*  Set  up  the  screen  */ 

_setvideomode (_BRESCOLOR) ; 

_setbkcolor {_BLUE) ; 

/*  initialize  the  Midac  interferometer  */ 

i  s  MidAgInit(  -1,  -1,  igain,  PLIMIT) ; 
if  (i) 

{ 

printf ("Error:  MidAqInit  returned  %d\n",  i) ; 
return  1; 

} 

/*  printf ("MidCol  initialized: \n") ; 

printf ("  DMA  Buffer  at  %Fp  s  %061X\n",  MidGbl.DmaBuffer, 
PtrToLong (MidGbl . DmaBuf f er) ) ;  */ 

/******************************♦♦*******♦*•♦♦*♦************♦******/ 

/*  check  the  instrument  gain  --if  too  low,  then  increase  gain 

if  too  high,  then  decrease  gain  */ 

/*  igain++ ; 

MidAqStartScam  (}  ,- 

taO  =  (unsigned  long) clock () ; 

while  (I MidGbl . DmaDone ) 

{ 
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tal  >  (unsigned  long)clock( ) ; 

if  ((tal-taO)  >  (unsigned  long)  (TIMEOUT  *  CLOCRS_PER_SEC ) ) 

printf ("Error:  Timeout  on  DMA  completion\n" ) ; 
return  2; 

> 

} 

MidGbl.DmaActive  *0; 

for  (index«0;  index  <  PLIMIT;  index++) 

raw_buf {index]  -  (float)  MidGbl.DoiaBuffer( index] ; 
burst  f burst  ( raw_buf ,  PLIMIT )  ; 

while (fabs(raw_buf [burst] )  <«  16384.  6&  igain  <«  7) 

{ 

raw_^buf [burst]  2.; 
igain-f-t-; 

} 

MidAqSetGain( igain) ; 

printf ("....  setting  the  instrument  A/0  gain  to  »  %d”, igain); 

MidAqStartScan ( ) ; 

taO  -  (unsigned  long)clock( ) ; 

while  ( IMidGbl.DmaOone) 

{ 

tal  >  (unsigned  long)clock( ) ; 

if  ((tal'taO)  >  (unsigned  long)  (TIMEOUT  *  CLOCKS_PER_SEC) ) 

{ 

printf ("Error:  Timeout  on  DMA  completion\n" ) ; 
return  2; 

> 

} 

MidGbl.DmaActive  «  0;  */ 

^•******«*****************«*****************************************/ 

/*  set  up  the  main  loop  to  process  data  */ 

tloop: 

scan++; 

/*  check  for  the  exit  key  */ 
if  (kbhitO  i-  0) 

{ 

ch  ■  getch( ) ; 
if  (ch  >«  FEND) 

{ 

f close  (fp2); 
f close  (fp3); 

_setvideofDode  (_DEFAULTMOOE); 
exit  (1); 

) 

) 

/*  Collect  1  sample  interferogram  trace:  */ 


Appendix  I 


197 


MidAqStartScan( ) ; 

taO  >  (unsigned  long)clock( ) ; 

while  (  IMidGbl.OmaDone  ) 

< 

tal  «  (unsigned  long)clock( ) ; 

if  ((tal  -  taO}  >  (unsigned  long) (TIMEOUT  *  CLOCKS_PER_SEC) ) 

{ 

printf ("Error:  Timeout  on  DMA  conpletion\n”) ; 
exit (4) ; 

} 

> 

MidGbl.DmaActive  •  0; 

/*  convert  the  integer  array  to  a  ungain  ranged  floating  array  */ 
for  (index  »  0;  index  <  INTF_LENGTH;  index-f-f) 

raw_buf [index]  *  (float)  MidGbl.OmaBuffer[ index] ; 

/*  lets  see  it (device,  "RAW",  raw_buf,  INTF_LENGTH) ;  "/ 


I*  Flip  interferogram  if  buret  is  negative  */ 

/*  tmO  «  time_stamp( ) ;  */ 
burst  =  fbur8t(raw_buf ) ; 
if  (raw  buf( burst]  <  0.0> 

{ 

for  (i«0}  i<INTF_LENGTH;  i++) 
raw  buf(i]  **  -1.0; 

> 

/*  Calculate  the  derivative  of  the  interferogram  */ 

/*  tml  ■  time__8tamp( )  ;  */ 
deriv ( int f_buf ,  raw_buf ) ; 

/*  tm2  ■  time_etamp( ) 7  */ 

/*  let8_8ee_it (device,  "DRV",  intf_buf,  INTF_LENGTH) ;  */ 

/*  find  the  burst  of  the  interferogram  */ 
burst  s  fbur8t(intf_buf ) ; 

/*  tm3  ■  time_8tamp( ) ;  */ 

/*  normalize  the  interferogram  */ 
normal ( int f_buf ) ; 

/*  tm4  ■  time_stamp( ) ;  */ 

/*  leta_see_it (device,  "NML",  intf_buf,  INTF_LENGTH) ;  */ 

/*  filter  the  short  section  */ 
filter2(intf_buf ,  flt_buf,  burst,  1); 
filter2(intf_buf ,  flt_buf2,  burst,  2); 

/*  tmS  ■  tiffle_stamp( ) ;  •/ 

/*  let8_see_it (device,  "FLT",  flt_buf,  SEG_I.ENGTH) ;  •/ 

/*  piece-wise  linear  discrimant  */ 
dsc_^result  »  plinear2  (flt_buf,  1); 
dac_re8ult2  plinear2  (flt_buf2,  2); 
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/*  tm6  ■  tiine_8tainp( ) ;  */ 

/*  kalman  filter  */ 

kal_reBult  *  kalman  (scan,  d8c_reBult,  1); 
kal_re8ult2  «  kalman  (acan,  d8C_re8ult2,  2); 
i*  tm7  ■  time_atamp( ) ;  */ 

If  (8can  <  DELAY_LENGTH) 

{ 

delay[8can]  >  kal_re8ult; 
delay2[8can]  >  kal_re8ult2; 

} 

elae 

{ 

for  (i-1;  i<DELAy_LENGTH;  i++) 

{ 

delay  [i-1]  <=  delay[i]; 
delay2[i-l]  «  delay2[i]; 

} 

delay [DELAY_LENGTH-11  -  kal_reeult; 
delay2tDELAY_LENGTH-l]  =  kal_re8ult2; 

} 

loop  «  loop  *  1; 

_Betactivepage( loop) ; 

_clear8creen(_GCLEARSCREEN) ; 

_8etvieworg (0,0); 
logoega(2,12)7 
_8etvieworg(64, 175) ; 

grf_re8ult82(Bcan,  kal_re8ult,  kal_re8ult2,  delay,  delay2); 
_8etvi8ualpage(loop) ; 

/*  tmS  «  time_8tamp( ) ;  */ 

fprintf (fp2, "%04d  %10.5f\n",  acan,  kal_re8ult)7 

fprintf (fp3, "%04d  %10.5f\n",  acan,  kal_re8ult); 

/*  Update  the  timing  totala  */ 


/* 

to 

+= 

((int) 

tml 

- 

tmO) ; 

V 

/• 

burat/flip  */ 

/* 

tl 

•f* 

((int) 

tm2 

- 

tml) ; 

*/ 

/• 

derivative  */ 

/* 

t2 

+« 

((int) 

tm3 

- 

tm2) ; 

*/ 

/• 

burat  location  */ 

/* 

t3 

((int) 

tm4 

- 

tm3) ; 

*/ 

/• 

normalization  */ 

/* 

t4 

+■ 

((int) 

tmS 

- 

tm4) ; 

V 

/• 

filter  •/ 

/* 

ts 

+« 

((int) 

tm6 

- 

tmS) ; 

*/ 

/* 

diacrimination  */ 

/* 

t6 

+■ 

((int) 

tm7 

- 

tm6) ; 

V 

/• 

kalman  filter  */ 

/* 

t7 

♦« 

((int) 

tmS 

- 

tm7); 

*/ 

/* 

graphica  */ 

/* 

te 

((int) 

tmS 

- 

tmO) ; 

*/ 

/* 

total  time  */ 

goto  tloop; 

} 

/*••*********•****•*•**•*«••  function  logoega  *****************************/ 
f*  logoega  ia  a  function  uaed  to  create  the  CBDA  logo  for  EGA  graphica. 
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The  funtion  requires  two  parameters,  the  x  and  y  coordinates  for  the 
first  letter  "C".  If  the  logo  coordinates  are  outside  the  exceptable 
range,  no  logo  will  be  plotted. 

author:  John  Ditillo 
modified  by:  Bob  Kroutil 

logoega  is  based  on  the  "old*  CROEC  routine  written  by 
John  T.  Ditillo 

date:  October  1992 

void  logoega (y,x) 
int  y,  x; 


i.nt  «p,  yp/ 

if  (y<23  &  y>l  &  x<76  &  x>2) 

{ 

/*  draw  the  logo  */ 
_settextposition<y,y) ; 

_outtext  ( "C" ) ; 

^eettexciX)8ition(y+l,x-i) ; 

“outtext  ("B  D"); 

_settextposition(y+2, K) , 

__outtext  ( "A"  ) ; 

/*  Calculate  first  pixel  location  */ 
yp  ■  y  •  14  -  16; 
xp  ■  X  *  8  -  5; 

/*  first  benzene  */ 

_moveto(xp,yp) ; 

__lineto(xp-8,yp+3) ; 
__lineto{xp-8,yp+13) ; 

__1  ineto  { xp ,  yp+ 1 7 ) ; 
_lineto(xp+8,yp+13) ; 

_lineto ( xp+8 , yp+3 ) ; 

__lineto(xp,yp); 

/*  second  benzene  */ 

_moveto ( xp-8 , yp+lJ ) ; 
_lineto(xp-16,yp+17) ; 
_lineto{xp-16,yp+27) ; 
_lineto{xp-8,yp+31) ; 
_lineto(xp,yp+27) ; 

_lineto(xp,yp-»-17) ; 
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/*  third  banzan*  •/ 
_movato  ( xp-»-8 ,  yp+13 )  t 
_linato(xp+16,yp+17>  t 
__linato(xp+16,yp*27 ) ; 
_linato(xp+8,yp+Jl) ; 
_1 inato ( xp/ yp+27  > ; 

/*  fourth  banzana  */ 
_n'3vato(xp-8,yp+31) ; 
_linato ( xp-8 , yp+42 ) ; 
_linato(xp,yp+45) ; 

_1 inato (xp+8, yp+42) i 
_linato(xp+8,yp+31) ; 


> 


} 

y***********************  function  grf_rosultB2 
#dafina  INXT_MAX  .01 

void  grf_raaults2  (acan,kal,kal2,buf ,buf2) 
int  scan; 
float  kal,kal2; 
float  buf [ ] ,buf2[ ] ; 

{ 

char  buffar[80]; 

int  i,  X,  y,  numpts,  first_x,  last_x,  xscala; 
float  yscalal,  yscala2; 

static  float  max«INIT_MAX,  max2»INIT_MAX; 

/*  sat  tha  max  valua  */ 

if  ( (fabs( (doubla)kal) )  >  max) 

max  ■  (float)  (fabs( (doubla)kal) ) ; 
if  ( (fabs( (doubla)kal2) )  >  max2) 

max2  ■  (float)  (fabs( (doubla)kal2) ) ; 

if  (scan  <  DELAY_LBNGTH) 

{ 

numpts  ■  scan; 
first_x  -  0; 

last  X  -  DELAY  LENGTH-1; 

> 

alsa 

{ 

numpts  -  DELAY_LENGTH; 

first_x  «  scan”-  (DELAY_LENGTH-1) ; 

last  X  scan; 

} 

/*  Calculate  tha  scaling  factor  •/ 
yscalal  *  75.0/max; 
yBcale2  «  75.0/ffiax2; 
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xacale  *  512/DELAy_LENGTH; 

jBOvato  (0,7S);  /*  Print  the  2  z  axis  grids*/ 

~linato  (512,75); 

_mov«to  (0,-75); 

“linato  (512,-75); 

jBOveto  (0,150);  /*  Print  the  Y  axis  */ 

_lineto  (0,2); 

__moveto  (0,-2); 

_lineto  (0,-150); 

for(i  *  0;  i  <s  512;  i  64)  /*Print  the  X  axis  tick  marks  */ 
{ 

_aioveto  ( i ,  80 ) ; 

_lineto(i,  75); 

_0ioveto(i,  -70); 

_lineto(i,  -75); 

} 

_inoveto(-4,  -ISO);  /*  Print  the  y-axis  tick  marks  */ 

_lineto(0,  -150); 

_moveto ( -4 ,  -2 ) ; 

_lineto(0,  -2); 

__moveto  ( -4 ,  2 ) ; 

_lineto(0,  2); 

__moveto(-4,  150); 

_lineto(0,  150); 

/*  label  the  axis  */ 

sprintf (buffer, "%04d”,  first_x); 

_settextpo8ition(25, 7)  ,* 

_outtext (buffer) ; 

sprintf  (buffer,  *'%04d” ,  last^x); 

_settextposition(25,70) ; 

^outtext (buffer) ; 

sprintf (buffer, "%  S.4f",  max2); 

_settextpo8ition(3,0) ; 

_outtext (buffer) ; 

sprintf (buffer, "%  5.4f",  -max2); 

_set text posit ion (12,0) ; 

_outtext (buffer) ; 

sprintf  (buffer,  **%  5.4f",  max); 

_settextposition(14,0) ; 

_outtext (buffer); 

sprintf (buffer, ”%  5.4f",  -max); 

_settextposition(24,0) ; 

_outtext( buffer) ; 
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■printf (buffer, "SCAN:  %5d 
for  (i*0;  i  <  10;  i++) 
buffer [i-t-13]  •  hdin8g2(i]; 

__Bettextpo8it  ion  ( 1 , 27 ) ; 

^outtext (buffer) ; 

aprintf  (buffer,  "SCAN:  %'jd 
for  (i-0;  i  <  10;  i++) 
buffer (i-t-13]  «  hdffl8gl(l]; 

_8et t ext po8 it ion ( 1 3 , 2 7 ) ; 

_out text (buffer) ; 

eprintf (buffer, "Snd  key  to  exit"); 
_8ettextpo8ition(25,3S) ; 

^outtext ( buffer ) ; 

/*  plot  the  data  */ 

_moveto  (0,  (int)  -(buf(0]  *  yscalel  -  75)); 
for  (i*l;  i  <  numpts;  i++) 

{ 

x  >  i  *  xBcale; 

y  ■  (int)  -(bufti)  *  yncalel  -  75); 
lineto  (x,y); 

}' 

_moveto  (0,  (int)  -(buf2(0]  *  y8cale2  ♦  75)); 
for  (i«l;  i  <  numptB;  i++) 

{ 

X  >  i  •  xBcale; 

y  •  (int)  •(buf2[i]  *  y8cale2  +75); 

^lineto  (x,y); 

> 

} 

^**********«*****«**********  function  fburot  *•* 
int  fburBt (buffer) 
float  buffer[]; 

{ 

/*  int  index,  bloc; 
double  bval; 

bloc  *0; 

bval  *  (double)  buffer(0]; 

for  (index  ■  1;  index  <  INTF_LENGTH;  index++) 
if  (fab8( (double)  buffer (index])  >  bval) 

{ 

Wal  «  fab8(  (double)  buffer] index) ) ; 
bloc  •  index; 

} 

return  (bloc);  */ 


:  %  7.5f",  8can, 


:  %  7.5f",  Bcan, 


kal2) 


kal); 
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int  i,  max_loc,  min_loc; 
float  max_val«0 . 0 ,  inin_val*0.0| 

for  (i-0;  i<INTP_LENCTH;  i++) 
if  (buffer[l]  >  max_val) 

{ 

max_val  «  buffer! i]; 
max  loc  «  i; 

} 

else  if  (buffer! i]  <  min_val) 

{ 

min_val  «  buffer!!]} 
min  loc  ■  i; 

} 

if  (fabs( (double)  min_val)  >  max^val) 
return (min_loc) ; 
else 

return (max_loc) ; 


> 

/******•****«****•***••****•  function  deriv  ************************** 
void  deriv(bufl,  buf2) 
float  bufl!]«  buf2(]; 

{ 

int  i2n,in,ib,i2b; 

int  index,  isrt,  if in,  ncent; 

float  denom; 

/*  use  the  forward  difference  for  the  first  two  points  */ 
denom  «  2.0; 
i2n  »  2} 
in  “  1} 

for  (index>0;  index  <2;  index-«-+,  i2n'«-t-,  in+-t-) 

bufl!index]  >  (•buf2!i2n]  4.0*buf2!in]  -  3.0*buf2!index] )/denoffl; 


/*  use  the  backward  difference  for  the  last  two  points  */ 
i2b  -  1HTP_1.BNCTH  -  4; 
ib  »  1HTF_LENGTH  -  3; 
isrt  -  INTP__LENGTH  -  2; 

for  (index" isrt;  index  <  INTF_^LENGTH;  index-*--*-,  i2b+*,  ib-*--*-) 

bufl!index]  *  (buf2!i2b}  -  4.0*buf2!ib]  -f3. 0*buf 2! index ]) /denom; 


/*  use  the  central  difference  for  the  middle  points  •/ 
ncent  »  IHTP_LENGTH  ”  5; 
isrt  »  2; 

if in  -  1NTP_LENGTH  -  2; 
i2b  "0; 
ib  ■  1; 
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in  B  3; 
i2n  B  4; 
d*nom  B  12.0; 

for  (IndexBisrt;  index  <  if  in;  index■»■■^,  i2n++,  in++,  ib++,  i2b++) 
bufl[index]  b  (buf2[i2b]  -  8.0*buf2(ib]  +  8.0*buf2(in]  - 
buf 2 [ i2n] ) /denom; 


} 

/A****************************  function  normal  ********••*******************/ 
void  normal (buffer) 
float  buffer! ]; 

{ 


int  index; 
float  esq  b  q.O; 

for  (indexBO;  index  <  INTF__LENGTH;  index-*--*-) 
esq  -^B  buffer  [index]  *  buffer  [index]; 

if  (aaq  >  0.0) 

esq  -  INTF_LENGTH  /  sqrt(saq); 

else 

esq  B  1.0; 

for  (indexBO;  index  <  INTF^LENGTH;  index-f-f) 
buffer [index]  *b  asq; 


) 

/************«******»*•*•*  function  filter2  ***•***************************•/ 

void  filter2(in_buf ,  out_buf,  burst,  ifilt) 

float  inj9uf[]; 

float  out_buf [ ] ; 

int  burst, ifilt; 

< 


int  i,  j,  k; 

if  (ifilt  B.  1) 

{ 

/*  do  the  first  digital  filter  */ 

for  (iBO,  kBSEG  OFFSETl-*-burst-l;  i<SEG_LBNGTHl ;  i-*"f,  k-^■*■) 

{ 

out__^buf[i]  B  f it_interceptsl[i] ; 
for  (jBO;  j  <  flt_lengthl[i] ;  j-*-*-) 

out_buf[i]  +B  flt_coefsl[i][  j]  *  in  buf(  k-*-flt  offsetsl[i]  [  j]  ]; 
>  ” 

> 

else 

{ 

/*  do  the  second  digital  filter  */ 
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for  (i«0,  k»SEG_OFPSET2+bur8t-l;  1<SEG_LBHGTH2 ;  i++,  k++) 

< 

outJbuf[i}  *  flt_lnt«rcepta2(i] ; 
for  (j»0;  j  <  flt_length2(il;  j++) 

out  buf[il  +-  flt_coef82Iill jl  •  in_buf[  k+flt_off8et«2(iH j) 

>  " 

> 

> 

/*•*•********••*•**•*•***•  function  plinoarE  ************************* 
float  plinear2(ln_buf ,  if lit) 
float  in_buf[]; 
int  ifilt; 

{ 

float  d8c_inax>-100.0; 
float  dac; 
int  i,  j,  k; 

if  (ifilt  »«  1) 

{ 

for  (i»0;  i  <  DSC_PASS1;  i++) 

{ 

dac  ■>  d8c_intarcept8l(i] ; 
for  (j»0;  j  <  SEG^LENGTHl;  j++) 

dac  in_buf(jl  *  d8c_coef8l(i] ( j)i 

if  (dac  >  dacjmax) 
dac  max  ■  dac; 

) 

} 

if(ifilt  J-  1) 

{ 

for  (i»0;  i  <  DSC  PASS2;  i++) 

{ 

dac  d8c_intercept82{i]; 
for  (j-0;  j  <  SEG_LENGTH2;  j++) 
dac  +■  in__bufljl  •  d8c_coaf82{i]( j); 

if  (dac  >  d8c_max) 
dac  max  ■>  dac; 

> 

} 

raturn ( dacjnax ) ; 

) 

/**************************  function  kalman  ************************** 
float  kalman (acan^nuffl,  in_value,  k) 
int  8can_num,k; 
float  in_valua; 

atatic  float  8Uffi(2]  >  {0.0, 0.0}; 
atatic  float  auffl8q(2]>  {0.0, 0.0); 
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static  float  q[2]  >  {0.0, 0.0}; 
static  float  clkip[2]  ■  {0.0,0.0>; 
static  float  aigcl2(2]; 
static  float  skip(2]; 
static  float  prev_input{2*XAL_WIN-fl) ; 
static  float  beta[2*KAL_HIN-*-lT; 
static  float  prev_input2[2*KAL_HlM+l] ; 
static  float  beta2[2*KALJifIN+l]; 
int  run,  i,  j; 

float  temp,  abase,  skm,  kal_gain,  kal_result,  clcov,  clkm; 
char  bl; 

nm  »  2  *  KAL_WZN  +  1; 

if  (scan_num  «■  0) 

{ 

/*  setup  info  for  the  kalman  */ 

temp  -  3.0/(float)(KAL_WIN*(KM._WIN+l)*(2*KAL_WIN+l)); 
for  (i— KAL_WIN,  j-0;  i<KAL_WIN+l;  i++,  j++) 

{ 

if  (k  —  1) 

beta(j]  >  temp  *  (float)  i; 
else 

beta2(j]  «  temp  *  (float)  i; 

) 

} 

if  (scan  num  <  KAL  SETUP) 

< 

sum(k]  in__value; 

sumsq[k]  +■  in_value  *  in_value; 

return (0.0); 

> 

else  if  (scan_num  ««  KAL_SETUP) 
abase  «  (float)  KAL_SETUP; 

sigcl2[k]  >  (abase  *  8um8q[k]  -  8um(k]  *  sum[k] )/(sbaBe* (sbase-l.O) ) ; 
akip(k]  «  sigcl2(k]; 
return (0.0); 

} 

else 

{ 

clkm  ■  clkip(k]; 
skm  -  skip(k]  4-  q[k]; 

/*  compute  the  kalman  gain  •/ 
kal__gain  «  skm  /  (skm  +  sigcl2(k]); 

/*  update  the  intensity  covariance  */ 
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cicov  »  (1.0  -  kal_gain)  *  akin; 

/*  updata  tha  intansity  astifflata  */ 

kal_raault  •  clkm  +  kal_gain  *  (ln_valua  -  clkm); 

/•  updata  array  of  pravioua  valuas  •/ 
if  (k  ■«  1) 

for  (i*0;  i<nin-l;  l++> 

prey_input [ i ]  ■  prav_input[i+lj» 
prav_input(nm-l]  ■  in__value; 

/•  printf("\n  in_valua»%5 . 4f  ■,in_valua);  •/ 

/*  updata  the  Q  aatimata  and  cooputa  tha  moving  average  */ 

aum[k]  *  0.0; 

for  (i*0;  i<nm;  i++) 

aum(k]  +-  bata[i]  *  prav_input ( i J ; 

/*  printf ("\ni«%d  k«%d  prev«%S.4f",i,k,prev_input(i] (k) ) ;  */ 

> 

alee 

{ 

for  (i«0;  i<nm-l;  i++) 

prav__input2  ( i  1  ■  prev_input2  [  i+1 1 ; 
prev_input2inm-l]  ■  in__value; 

/*  updata  tha  Q  estimate  and  compute  tha  moving  average  */ 

sum[k]  •  0.0; 

for  (i«0;  i<nm;  i++) 

aum(k]  +■  beta2(i]  *  prav_input2li) ; 

} 

q[k]  «  aum(k]  *  sum(k]; 
clkip[k]  «  kal_ra8ult; 
skip(k]  ■  cicov; 

/*  printf ("\nqll)-%5.4f  q(2 ]-%5.4f ",q(l] ,q(2] ) ; 

printf ( " \nclkip [ 1 ] -%5 . 4f  clkipl 2 ) -%5 . 4f - , clkip [ 1 ) , clkip I 2 ] ) ; 
printf ("\n8kipll]»%5.4f  8kip(2]-%5.4f",skip(l J ,8kip[2] ) ; 
scanf(-%8",bl);  •/ 
return ( kal_rasult ) ; 

) 

> 

/******************•**•***  function  lats__saa_it  ***************** 
void  lats_Boa_it (device,  label,  buffer,  length) 

FILE  *davlca; 
char  labal[]; 
float  buffer! ]; 
int  length; 

{ 

int  i; 

if  (device  —  stdout)  /*  Output  to  display  */ 

{ 
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fprintf (device, "\n\n\n\n" ) ; 
for  (i»0;  i  <  length;  1  2) 

fprintf (device,  "%•/  %4d  -  %12.3f  «b#  i4d  -  %12.3f\n", 

label,  i4l,  buffer[i],  label,  i-f2,  buffer[i-i-l] ) ; 

> 

else  /*  Output  to  the  printer  */ 

{ 

fprintf (device, "\r\n\r\n\r\n\r\n" ) ; 
for  (i»0;  i  <  length;  i  +■  4) 

{ 

fprintf (device,  "ts#  %4d  -  %12.3f  %b#  %4d  >  %12.3f  ", 

label,  i+l,  buffer(i],  label,  i+2,  buffer[i-fl] ) ; 
fprintf (device,  "%b#  %4d  ■  %12.3f  %b#  %4d  >  %12.3f\r\n", 

label,  i-«-3,  buffer(i'*-2],  label,  i-<-4,  buffer[i-«-3] } ; 

} 

} 

} 

/A***********************  function  time__etamp  ********************** 
long  tiine_Btaffip( ) 

union  REGS  regs;  /"SETUP  FOR  REGISTER  USB*/ 

long  tc; 

regs. h. ah  «  0;  /"SET  ACC  FOR  TIME  TYPE  INTERRUPT"/ 


int86(  Oxla,  firega,  Sregs  );  /"GENERATE  INTERRUPT  FOR  TIME"/ 
tc  •  (((long)  regs.x.cx)  «  16)  regs.x.dx; 
return(tc);  /"RETURN  CLOCK  TICK*/ 

> 

/* - */ 

/*  ini  Allow  port  input  during  debug.  */ 

/*  This  is  necessary  for  CV  4.00 — the  "1"  command  (port  */ 

/*  input  is  broken.  The  circumvention  is  to  include  a  */ 

/*  a  global  function  such  as  in()  below,  trace  at  least  */ 

/*  as  far  as  the  main()  function,  then  "7in(port)"  or  */ 

/*  "7in(port) ,x"  to  read  port  contents.  */ 

/* - */ 


int  in(  unsigned  port  ) 

{ 

int  i; 

i  -  inp(port); 
return  i; 

>  /*  in  */ 


/* - */ 

/*  loDelayt  I/O  delay  for  IBM/AT  and  clones.  */ 

/*  */ 

/*  This  dummy  function  is  used  to  generate  a  few  clocks  of  delay  */ 

/*  between  consecutive  accesses  to  certain  I/O  ports.  Basically,  */ 

/*  the  call/return  sequence  is  more  than  enough.  Assembler  */ 
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/*  programs  typically  use  a  "JMP  SHORT  $4-2''  instruction,  but  */ 

/*  the  HSC7  inline  assembler  doesn’t  seem  to  handle  the  */ 

/*  token  very  well.  The  delay  is  necessary  on  IBM  AT  machines  */ 

f*  and  true  compatibles.  */ 

/*  */ 
/*  Needless  to  say,  allowing  this  function  to  be  inlined  would  */ 

/*  be  a  bad  idea...  */ 


static  void  near  loDelay(void) 
{ 

% 

>  /*  loDelay  */ 


/*  GetDmaBuffer:  Allocate  a  byte-'OKA  compatible  buffer  */ 

/*  *! 

/*  A  byte  DMA  buffer  cannot  cross  a  64K-byte  absolute  address  */ 

/*  boundary.  *! 

/*  */ 

/*  Returns  pointer  to  buffer  if  successful,  NULL  otherwise.  */ 

/* - - - - - - - */ 

void  far  ^fietDmaBuf fer ( long  Size) 

{ 

#define  MaxTries  16  /*  Maximum  attempts  before  failure  */ 


void  far  *failed (MaxTries ] , 

far  *try, 
far  ^retry; 

unsigned  begoff,  endoff; 

int  i,  nfailsO; 

if  (Size>MAXDMA  ! |  Size<sO)  return  NULL; 

for  (;;)  /*  Repeat  until  explicit  break:  */ 

{ 

try  -  malloc( (size_t)Size) ; 
if  (  try^aNULL  )  break; 

/*  Test  for  64K  block  wraparound:  */ 

begoff  ■  (FP_SEG(try)  «  4)  +  FP_OPF(try); 
endoff  «  begoff  t  (unsigned) Size  -  1; 

if  (endoff  >«  begoff)  break;  /*  Success  if  all  in  1  block 

I*  Current  attempt  crosses  boundary,  retry  if  failed  list  not  full:  */ 

if  (nfail  »  MaxTries) 

{ 

free (try) ; 
try  «  NULL; 
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break; 

} 

/*  Resize  current  try  to  end  on  64K  absolute  boundary  and  add  it  to  */ 
/*  the  failed  list:  */ 

retry  «  realloc(try,  l+'begoff); 
if  (  retry  l«  NULL  ) 
try  ■  retry; 
failed (nfail4-+]  ■  try; 

> 

/*  Arrive  here  via  explicit  break.  Free  failed  attempt  pointers,  if  */ 
/*  any  and  exit.  The  try  variable  has  been  set  to  a  pointer  on  success  */ 
I*  or  to  NULL  on  error.  •/ 

for(  i»0;  i<nfail;  ++i  ) 

{ 

free(  failed(i]  ); 

} 

return  try; 

/undef  MaxTries  /*  Undefine  "local”  macros  */ 

}  /*  GetOmaBuffer  */ 


/* - •/ 

/*  StartDma:  Start  a  DMA  operation.  */ 

/*  */ 

/*  This  is  a  cut-down  version  to  do  input  only,  specifically  */ 

/*  using  DMA  info  in  MidGbl  structure.  */ 

/* - */ 


void  StartDma (void) 

< 

long  addr 

int  size 

unsigned  ch 


PtrToLong(MidGbl.DmaBuf fer) ; 
( int ) MidGb 1 . DmaSize ; 

2  *MidGbl . DmaChannel ; 


DisableDma (MidGbl . DmaChannel ) ; 

loDelayO;  /*  Wait  a  few  CPU  clocks 

outp  ( DMA_MODE ,  0x44-»-MidGbl .  DmaChannel )  ; 

/*  DMA  Mode:  single-block, 

/*  incresient  address, 

/*  no  autoinitialize. 


•/ 

*/ 


/*  "write  transfer” 

->  cpu  •/ 

XoDelay( ) ; 

/*  Wait  a  few  CPU  clocks 

*/ 

outp(DMA_CLRF,0) ; 

/*  Set  to  receive  LSB  first 

*/ 

IoDelay( ) ; 

/*  Wait  a  few  CPU  clocks 
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/*  Sand  byta  count 
/*  Halt  a  faw  CPU  clocks 


*! 


outp ( DMA_CTR'*-ch,  ( int )  siza )  7 
loDalay ( ) ; 

outp(DMA_CTR'*-ch,  (Int)siza  »  8)7 
IoDalay()7  /*  Halt  a  faw  CPU  clocks  */ 

outp(DNA_A0DR4ch,  (int)addr)7  /*  Sand  addrass  */ 

loDalayO;  /*  Wait  a  faw  CPU  clocks  */ 

outp(DMA_ADDR-^ch,  (int)addr  >>8)7 

XoDalay()7  /*  Walt  a  faw  CPU  clocks  */ 

outp(MldGbl . DmaPagaRag,  < int )  (addr»16) )  7 

/*  Sat  page  rag  to  top  8  bits  */ 

IoDalay()7  /*  Wait  a  few  CPU  clocks  */ 

EnableDma(MidGbl.DmaChannel) 7  /*  Finally,  enable  DMA  */ 

}  I*  StartDma  */ 

- */ 

/*  SetIrqEnable:  Set/Reset  IRQ  enable  status  for  specified  */ 

/*  channel.  */ 

/*  */ 

/*  Please  note  that  the  sense  of  the  "Enable"  argument  is  a  C-  */ 

/*  style  boolean.  Nonzero,  or  "true",  enables  the  channel.  This  */ 

/*  is  opposite  from  the  8259  mask  register,  where  a  1  disables  */ 

/•  the  channel  and  0  enables.  */ 

/* - V 

void  SetIrqEnable ( 

int  IrqNumber,  /*  Interrupt  channel,  0-15  */ 

int  Enable)  /*  New  enable  status  for  this  channel  */ 

/*  Os  disable  interrupts  */ 

/*  nonzero  >  enable  interrupts  */ 

< 

uns igned  port ; 
int  mask,  val7 


if  (IrqNumber  <  8) 

{ 

port  -  PIC1_MASK7  /*  Primary  8259  port  •/ 

mask  s  1  «  IrqNumber 7 

} 

else 

port  s  PIC2_NASK7  /*  Secondary  8259  port  */ 

Bwsk  ■  1  «  (IrqNumber-8)  7 

) 

val  s  inp(port)  {  mask7  /*  Set  to  mask  disable  */ 

if  (Enable)  val  mask7  /*  Set  to  enable  if  requested  */ 

outp(port,  val) 7  /*  Update  port  */ 
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}  I*  SetIrqEnable  */ 


/*  .  */ 

/*  MidAqStartScan :  Start  new  data  collect  operation  */ 

/*  */ 

/*  This  is  a  skeleton  of  what  is  needed  to  begin  a  new  data  */ 

/*  scan,  or  series  of  accuniulated  scans,  on  the  Midac  FT-IR.  */ 

/*  .  */ 

void  MidAqStartScan (void) 

{ 

SetIrqEnable (MidGbl.IrqNum,  0);  /*  DisaQsle  interrupt  channel  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 

DisableDnia(MidGbl.DinaChannel)  ;  /*  Disable  DMA  channel  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 

StartDmaO;  /*  Start  DMA  cheunnel  */ 

SetlrqEnedjle (MidGbl . IrqNum,  1);  /*  Enable  interrupt  channel  */ 

/*  Set  gain  and  retrace  interferometer:  */ 


CmdOut(  MidGbl.GainPort  |  MIDC_EOS  |  MIDC_1RQ  ); 

/*  Start  IRQ  clear  pulse*/ 

loDelayO;  /*  Wait  a  few  CPU  clocks*/ 

CmdOut(  CmdInO  &-(MIDC_EOS  +  MIDC_IRQ)  );  /*  End  IRQ  clear  pulse,  */ 

/*  Start  retrace  pulse  */ 


loDelayO  ; 

while  (inp(MID_STAT)  &  MIDS_FLYBK) ; 

CmdOut (  Cmdin (T  |  (MIDC_EOS~+  MIDC_IRQ) ) ; 
loDelayO  ; 


/*  Wait  a  few  CPU  clocks*/ 
/*  Wait  for  turnaround  */ 
/*  End  retrace  pulse  */ 
/*  Wait  a  few  CPU  clocks*/ 


/*  Note:  May  need  to  insert  delay  here,  10-20ms,  to  allow  for  */ 

/*  hardware  bug  in  Midac  interface  causing  early  DMA  requests.  */ 

_asm  xor  cx,cx 
here:  _asm  loop  here 

MidGbl.DmaActive  *  1;  /*  Set  global  DMA  statue  flags  */ 

MidGbl.DmaDone  >  0; 

CmdOut (  Cmdin 0  |  MIDC_DMA  ) ;  /*  Enable  DMA  at  interface  */ 

}  /*  MidAqStartScaui  */ 


/*  .  */ 

/*  MidAqDmaDone :  Interrupt  Handler  for  DMA  coopletion  */ 

/*  */ 

/*  This  version  simply  notes  DMA  conpletion,  retraces  the  */ 

/*  interferometer,  and  disables  DMA  at  both  the  8237  and  at  */ 


/*  the  Midac  interface  board.  This  would  be  the  natural  place  */ 
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/* 

/* 


to  insert  co-add  logic  for  averaging  interf erograms .  */ 

. .  .  */ 

void  _cdecl  interrupt  far  MidAqDmaDone (void) 

{ 

MidGbl  .DmaDone  1;  /*  Note  Did  coopletion  */ 

QndOut(  CmdInO  &-MIDC_DMA  );  /*  Disable  DMA  at  interface  */ 

DisableDma (MidGbl. DmaChcmnel) ;  /*  then  disable  channel  */ 

loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 

/*  Retrace  interferometer:  */ 


CmdOut(  CmdInO  j  (MIDC_EOS  MIDC_IRQ)  );  /*  Start  IRQ  clear  pulse*/ 


CmdOut  (  OtndlnO  &~(M1DC_E0S  +  MIDC_IRQ)  );  /*  End  IRQ  clear  pulse,  */ 
/*  Start  retrace  pulse  */ 

^enadjleO;  /*  Interrupts  on  now  */ 
while  (inp{MID_STAT)  &  MIOS_PLYBK) ;  /*  Wait  for  turnaround  */ 
CmdOut (  CmdInO  |  (MIDC_EOS  <  MIDC_IRQ) ) ;  /*  End  retrace  pulse  */ 

/*  This  is  the  place  to  put  co  add  logic  and  possibly  start  the  */ 
/*  DMA  controller  for  a  new  scan.  Note  that  the  instrument  will  */ 
/*  scan  euiyway- -the  decision  is  whether  or  not  to  collect  the  data.  */ 

/*  Note:  May  need  to  insert  delay,  10-20ms,  to  allow  for  */ 
/*  hardware  bug  in  Midac  interface,  if  another  scan  is  to  be  */ 
/*  started  here.  */ 

outp(PICl_CMD,  PICC_EOI) ;  /*  Issue  EOI  to  master  */ 
loDelayO  ;  /*  Wait  a  few  CPU  clocks  */ 
if  (MidGbl . IrqNum  >  7)  /*  If  interrupt  is  on  slave  */ 


outp(PIC2_CMD,  PICC_EOI) ;  /*  then  issue  secondary  EOI 

}  /*  MidAqDmaDone  */ 


/*  .  */ 

/*  MidAqSetGain :  Set  Signal  Gain  */ 
/*  */ 
/*  . */ 


int  MidAqSetGain (int  SignalGain) 

{ 

int  gainport  =  ( (-SignalGain  <<  MIDC_GSHIFT)  &  MIDC_raiASK) ; 
int  oldgain  «  MidGbl .GainVal ; 

if  (SignalGain<0  j 1  SignalGain>7) 
return  -1; 

CmdOut  (gainport  |  (CmdInO  &  'MIDC_QMASK) )  ; 

MidGbl .GainVal  *  SignalGain; 

MidGbl .  GainPort  s  gainport  ,- 
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return  oldgain; 

}  /*  MidAqSetGain  */ 


/*  .  */ 

/*  */ 

/*  MidAqfTerm:  Data  collect  termination  */ 

/*  */ 

/*  This  function  is  not  explicitly  called,  but  is  called  at  */ 

/*  program  termination  via  the  atexitO  facility.  The  primary  */ 

/*  task  is  to  disable  Did  and  the  terminal  count  interrupt  and  */ 

/*  restore  the  IRQ  vector.  */ 

/*  . : .  V 


void  MidAqTerm ( void) 

{ 

SetZrqEnable(MidGbl.IrqNum,  0); 
Dis2d3leDma(MidGbl.DmaChannel)  ; 

CmdOut  {M1DC_E0S)  ; 
loDelayO  ; 

if  (MidGbl.OldIrqVec  !=  NULL) 

{ 

_do8_setvect (MidGbl .IrqVecNo,  MidGbl.OldIrqVec) ; 
MidGbl.OldIrqVec  «  NULL; 

) 

}  /*  MidAqTerm  */ 


/*  .  .  */ 

/*  MidAqInit:  Initialize  Midac  interface  for  data  collect  */ 

/*  */ 

/*  The  arguments  to  this  function  provide  for  setup  parameters  * j 

f*  and/or  nonstandard  interface  board  configurations.  Bach  is  */ 

/*  either  a  nonnegative  integer  value,  or  -1  to  use  the  */ 

/*  predefined  default  value.  */ 

/*  */ 

/*  Tbe  first  two  arguments  (DmaChannel,  IrqNumber)  describe  the  */ 

/*  configuration  of  the  Midac  interface  board.  Current  interface  */ 

/*  boards  are  hardwired  for  DMA  channel  1  and  are  jumper  */ 

/*  selectable  to  use  either  IRQ2  or  IRQ3.  Other  options  could  */ 

/*  conceivably  be  possible  for  unusual  custom  requirements.  */ 

/*  In  general,  however,  such  a  modified  interface  board  would  */ 

/*  be  incompatible  with  existing  SpectraCalc  and  LabCalc  drivers.  */ 

/*  */ 

/*  The  buffer  size  argument  (MaxFoints)  is  necessary  to  allocate  */ 

/*  a  DMA  buffer.  This  buffer  has  the  hardware -enforced  */ 

/*  requirement  to  not  cross  a  64K-byte  absolute  memory  boundary.  */ 

/*  This  is  the  strictest  dynamic  allocation  requirement  in  a  */ 


/*  Disable  interrupt  ch2uinel  */ 
/*  Diszdile  DMA  cheuinel  */ 
/*  Reset  the  interferometer  */ 
/*  Wait  a  few  CPU  clocks  */ 
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/*  typical  data  collect  application,  and  ahould  be  done  first.  */ 

/*  If  co-addition  of  inter ferograms  is  to  be  performed,  this  is  */ 

/*  might  be  a  good  place  to  allocate  an  accumulator  buffer  as  */ 

/*  %fell.  •/ 

/*  */ 
/*  The  gain  argument  (SignalGain)  provides  the  initial  signal  */ 

/*  gain  level  for  programming  the  interface.  This  value  is  */ 

/*  subject  to  change  during  program  operation,  but  some  initial  */ 

/*  value  is  required.  */ 

_ *  / 


int  MidAqInit( 

int  DmaChannel,  /*  DMA  channel  number,  0-3  */ 

int  IrqNumber,  /*  PC/ ISA  interrupt  channel  number  */ 

int  SignalGain,  /*  Signal  gain  level,  0-7  */ 

int  MaxPoints)  /*  Max  data  points  in  collect  buffer  •/ 

{ 

int  i,  dmachan,  irqnum,  maxpts,  gainval,  gainport; 

/*  Translate  and  validate  input  paramters...  */ 


dmachan  *  OmaChannel»0  ?  DmaChannel  t  DMA; 

irqnum  ■  IrqNumber  >>0  7  IrqNumber  t  IRQ; 

gainval  «  SignalGain>>0  ?  SignalGain  :  GAIN; 

maxpts  >  MaxPoints>«0  7  MaxPoints  t  BUFPTS; 

if  (dmachan  DMA)  return  -1;  /*  ***temp***  need  to  know  page  */ 

/*  register  addresses  for  other  */ 

/*  DMA  channels  to  generalize  */ 

/*  this  for  other  byte  channels  */ 

if  (dmachan<0  |  j  dlmachan>3) 
return  -1; 

if  (irqnunxO  ||  irqnum>15) 
return  -1; 

if  (gainvaKO  j  |  gainval>7) 
return  -1; 

if  (maxpts<l  |j  maxpts>(MAXDMA  /  2)) 
return  -1; 

/*  Bring  the  hardware  interface  to  idle  states  */ 


gainport  •  ('gainval  «  MIDCjGSHIFT)  £  NIDC_GMASX; 

/*  Compute  Inverted  gain  val  */ 


MidGbl. Gainval 

*  gainval; 

/*  Save  requested  gain 

V 

MidGbl . GainPort 

«  gainport; 

/*  Save  port  iaiage 

V 

CmdOut( gainport  |  MIDC_BOS); 

/*  Set  gain,  DMA  off,  and 

*/ 

/*  EOS, IRQ  strobes 

0 

Hi 

s 

Set IrqEnable ( irqnum. 

0); 

/*  Disable  interrupt  channel 

*/ 

DisableOma (dmachan) ; 

/*  Disable  DMA  channel 

*/ 

Appendix  I 


216 


IoDelay( ) 


/*  Wait  a  faw  CPU  clocks 


/*  Initialise  DMA: 

MidGbl . DmaDone  *0; 

MidGbl.DmaActive  >  0; 

MidGbl. MaxPoint 8  ■  maxpts; 

MidGbl. DmaChannel  >  dmachan; 

MidGbl . DmaPageReg  «  DmaPageTable [ dmachan ] ; 

MidGbl. DmaSize  «  (long)maxptB  *  siaeof (unsigned  short); 

MidGbl. DmaBuffer  >  GetDfflaBuffer(MidGbl.DmaSise) ; 

if  (MidGbl. DmaBuffer  ■>«  MULL) 
return  -1; 

for  (1*0;  Kmaxpts;  -*"*■!)  /*  Put  recognisable  null  data 

MidGbl. DmaBuffer[i]  «  OxBEEE;  /*  in  buffer  for  debug 

/*  Initialise  IRQ  channel 

MidGbl . IrqNum  «  irqnum; 

MidGbl . IrqVecNo  >  (irqnunKB  ?  0x08  :  0x68)  -f  irqnum; 

MidGbl. OldIrqVec  >  _doB_getvect (MidGbl. IrqVecNo) ; 

_^doa_setvect (MidGbl . IrqVecNo,  MidAqDmaDone) ; 

atexit(MidAqTerm) ; 

return  0; 

>  /•  MidAqlnit  */ 
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Blank 
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APPENDIX  J 


DISK  DATA  READ  PATTERN  RECOGNITION  PROGRAM 


Program  MTRXD 


Thia  program  la  a  "C"  version  of  the  TESTWV  program  located 
on  the  Silicon  Graphics  computer.  This  program  will  process 
inter ferograms  collected  on  disk  and  display  the  result 
of  the  filtering  and  pattern  recognition. 

author  of  modified  C  version:  Bob  Kroutil 

date:  October  1992  */ 


/ 


/ 


/include 

/include 

/include 

/include 

/include 

/include 

/include 

/include 

/include 

/include 


<stdio.h> 
<fcntl.h> 
<math . h> 

<bioa . h> 
<graph . h> 

<dos . h> 

" header s.def" 
"mtrx.def " 

"f ilterl. inc" 
"discriml.inc" 


/*  include  the  filter  coefficients  */ 

/*  include  the  pattern  recognition  coefficients  */ 


/define  INTF_LBNGTH  1024 
/define  GH_LENGTH  S12 
/define  SH~LENGTH  64 
/define  FEND  79 
/define  DELAY  LENGTH  256 


/*  Length  of  the  inter ferogr am  */ 
/*  Bytes  in  the  global  header  •/ 
/•  Bytes  in  the  subfile  header  */ 


main ( argc , argv ) 
int  argc; 
char  *argvl); 


float  raw_buf ( INTF_LENGTH ] ,  intf_buf ( INTF_LENGTH  J ,  f lt_buf [ SEG_LENGTH1 ] ; 
float  plinear ( ) ,  kalman ( ) ; 

float  delay ( OELAY_LBNGTH ] ,  dsc^result,  kal^resultBO . 0 ; 
int  f burst ( ) ; 

int  raw_dat a [ INTF_LENGTH ] ; 
int  scan,  index,  burst,  i,  loop«0; 
int  fpl; 
char  ch; 

void  deriv ( ) ,  rotate ( ) ,  normal ( ) ,  filter ( ) ,  lets_see_it ( ) ; 
void  logoegaO,  grf^results ( ) } 

FILE  *device,  *fp2; 
struct  global_header  gh; 
struct  scan^header  sh; 
long  time_stamp( ) ; 

long  tmO , tml , tm2 , tm3 , tm4 , tmS , tm6 , tm7 , tm6 ; 
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int  tO^O ,  tlaO ,t2*0,  t3>0 ,  t4a:0 ,  t5«0,  t6sO,  t7s0,  t8s0  ; 

union  REGS  inregs;  /*  REG  structure  for  timing  input  */ 

union  REGS  outregs;  /*  REG  structure  for  timing  output  */ 

if  (argc  !«  3) 

{ 

printf ("\nUsage:  mtrxd  infile  outfile\n"); 
exit (1) ; 

} 

/*  preset  user  for  the  output  device  */ 

/*  printf ( "Enter  the  desired  output  device  for  intermediate  results\n") 
printf (" (S) creen  or  (P)rinter  »  ") ; 
ch  s  getcharO  ; 
while  (getcharO  !a'\n'); 
if  (ch  ■=  'P'  I  ch  a='p') 
device  s  std^m; 
else 

device  a  stdout;  */ 
device  a  stdout; 


/*  Open  a  file  connection  to  the  Midac  data  file  */ 
if  ((fpl  a  open(argv[l] ,  O  RD0NLY|0  BINARY))  <  0) 

{ 

printf ("\n\"mtrxd\"  is  unable  to  open  %s\n",argvtl] ) ; 
exit (1) ; 

} 

/*  Open  a  file  connection  to  the  results  */ 
if  ( (fp2  a  fopen(argv[2] ,  "w"))  aa  NULL) 

{ 

printf ( "Unable  to  open  \"%s\"\n",  argv(2]); 
exit (1) ; 

} 

else 

fprintf (fp2, "%s\n" ,  argv[l]); 

/*  Zero-fill  the  delay  line  */ 
for  (iaO;  i<DEIAY_LENGTH;  i++) 
delay [i]  a  O.O; 

/*  Set  up  the  screen  */ 

_setvideomode (^ERESCOLOR) ; 

_8etbkcolor (_BLDE) ; 

/*  read  in  the  global  header  */ 
read  (fpl,  &gh,  GH_IiBNGTH)  ; 

for  (scan  *  0;  scan  <  gh.stpp  scan;  scan-t-i-) 

{ 
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/*  if  using  a  486  computer  then  delay  each  calculation  for 
display  purposes  —  remove  this  section  for  386  version  */ 
inregs.h.ah  «  0x86;  /*  delay  service  *! 

inregs.x.cx  «  5;  /*  set  high  order  delay  word  */ 

inregs.x.dx  ■>  0;  /*  set  low  order  delay  vrord  */ 

int86  (0xl5,6inregs,&outregs) ;  /•  call  to  ROM  BIOS  timer  delay  service  */ 

/*  Check  for  exit  key  */ 
if  (kbhito  i-  0) 

{ 

ch  «  getch(); 
if  (ch  FEND) 

{ 

fclose(fp2) I 
close (f pi ) ; 

_setvideomode(_DEPAULTMODE) ; 
exit{l); 

} 

} 

read(fpl,  &sh,  SH_LENGTH);  /*  read  the  subfile  header  */ 

read(fpl>  raw_data,  INTF_LENGTH*2) ;  /*  read  the  subfile  data  */ 

/*  convert  the  integer  array  to  a  ungain  ranged  floating  array  */ 
for  (index  *0;  index  <  ZNTF_LENGTH;  index-t-f) 
raw  buf (index)  ■  (float)  raw_data ( index ] ; 

/*  lets  see  it (device,  "RAW*,  raw  buf,  INTF  USNGTH);  */ 


/*  Flip  interferogram  if  burst  is  negative  */ 
tmO  >  time_stamp( ) ; 
burst  «  f bur St ( raw_bu  f ) ; 
if  (raw_buf (burst)  <  0.0) 

for  (i»0;  i<INTF_LENGTH;  i++) 
raw_buf(i)  -1.0; 

/*  Calculate  the  derivative  of  the  interferogram  */ 
tml  «  time_stamp( ) ; 
deriv ( intf_buf ,  raw_buf ) ; 
tm2  >  time_atamp() ; 

/•  lets_see“it (device,  "DRV",  intf_buf,  INTF_LEMGTH) ;  */ 

/*  find  the  burst  of  the  interferogram  */ 
burst  ■  fburst (intf_buf ) ; 
tm3  ■  time_stamp(); 

/*  normalize  the  interferogram  */ 
normal ( intf^buf ) ; 
tm4  «  time_stamp() ; 

/*  lets  see”it( device,  "NML",  intf__buf,  INTF_LENGTH ) ;  */ 
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/*  filter  the  short  section  */ 
filter (intf_buf,  flt_buf,  burst); 
tn5  ■>  tiine_stainp( ) ; 

/*  let a_see_it (device,  "FLT",  flt_buf,  SEG_LENGTH);  */ 

/*  piece-wise  linear  discrimant  */ 
dsc_result  «  plinear(flt_buf ) ; 
tffl6  >  tinie_stainp( ) ; 

/*  kalman  filter  */ 

kal^result  >  kalman(scan,  dsc_result); 
tin?  B  time_stainp( ) ; 

if  (scan  <  DELAy_LENGTH) 
delay [scan]  ■  kal_result; 
else 
{ 

for  (i=l;  i<DELAY_LENGTH;  i++) 
delay[i-l]  «  delay[i]; 
delay (DELAY_LENGTH-1]  -  kal_reBult; 

} 

loop  *  loop  *  1; 

^setactivepage ( loop) ; 

_clearscreen(_GCLEARSCREEN) ; 

_^setvieworg  (0,0); 
logoega(2,12) ; 

__setvieworg(64,17S) ; 
grf_results(Bcan,  kal^result,  delay); 
_setvisualpage(loop) ; 
tmS  B  tiine_stainp( ) ; 

fprintf (fp2,"%04d  «10.5f\n",  scan,  kal_reBult); 

/•  Update  the  timing  totals  •/ 


to 

+B 

((int) 

tml 

- 

tmO) ; 

/• 

burst/flip  */ 

tl 

+  B 

((int) 

tm2 

- 

tml) ; 

/• 

derivative  */ 

t2 

+B 

((int) 

tm3 

- 

tni2); 

/• 

burst  location  */ 

t3 

+B 

((int) 

tm4 

- 

tm3); 

/* 

normalication  */ 

t4 

■fB 

((int) 

tffiS 

- 

tm4); 

/• 

filter  •/ 

ts 

+B 

((int) 

tmS 

- 

tmS); 

/• 

discrimination  */ 

t6 

•fB 

((int) 

tm? 

- 

tmS) ; 

/* 

kalman  filter  */ 

t? 

■fB 

((int) 

tmS 

- 

tm7); 

/• 

graphics  */ 

ts 

•fB 

((int) 

tmS 

- 

tmO) ; 

/* 

total  time  •/ 

} 

close (f pi); 
fclose(fp2) ; 

^setvideomode (_DEFAULTHODE ) ; 
printf ("XnXn") ; 

printf ("Burst/Flipi  %02d\n",  tO/scan); 

printf ("Derivative:  %02d\n",  tl/scan); 
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print£("BurBt  location:  %02d\n'',  t2/scan); 
print£( "Normalization:  %02d\n",  t3/scan); 

printf ("Filter:  %02d\n",  t4/acan); 

printf ("Discrimination:  %02d\n",  tS/scan); 
printf ("Kalman:  %02d\n",  t6/scan) ; 

printf ("Graphics:  %02d\n",  t7/scan); 

printf ("  *=»*\n"); 

printf ( "Total  time:  %02d  ticks  or  %d  mseconds\n*, 

t8/scan,  (t8/scan) *55) ; 

> 

/•*****************•********  function  logoega  ************************** 
/*  logoega  is  a  function  used  to  create  the  CBDA  logo  for  EGA  graphics. 
The  funtion  requires  two  parameters,  the  x  and  y  coordinates  for  the 
first  letter  "C".  If  the  logo  coordinates  are  outside  the  exceptable 
range,  no  logo  will  be  plotted. 

author:  John  Ditillo 
modified  by:  Bob  Kroutil 

logoega  is  based  on  the  "old"  CRDEC  logo  program 
written  by  John  T.  Ditillo 

date:  October  1992  */ 

void  logoega (y,x) 
int  y,  x; 


int  xp,  yp; 

if  (y<23  &  y>l  &  x<76  ft  x>2) 

{ 

/*  draw  the  logo  */ 
_settextpositlon(y,x) ; 

_outtext  ( "C" ) ; 

_settextposition(y-*-l,x-l) ; 

~outtext  ("B  D"); 

_^settextposition(yt-2,x) ; 

“outtext  ("A"); 

/*  Calculate  first  pixel  location  */ 
yp  ■  y  *  14  -  16; 
xp  ■  X  *  8  -  5; 

/*  first  benzene  */ 

_moveto(xp,yp) ; 

_1 ineto ( xp-8 , yp+3 ) ; 
_lineto(xp-8,yp+l3) ; 
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_lineto(xp,yp+17) ; 
_lin*to(xp+8,yp+13) ; 
_1  ineto  ( xp-«-8 ,  yp-t-S ) ; 
_lin«to(xp,yp); 

/*  second  benzene  */ 
_raoveto(xp-8,yp+13) ; 
_lineto(xp-16,yi)+17)  I 
__lineto(xp-16,yp+27) » 
_lineto(xp-8,yp+31) ; 
_lineto(xp,yp-»-27) ; 
__lineto(xp,yp+17) ; 

/*  third  benzene  •/ 
_TOveto ( xp+8 , yp+13 ) i 
_lineto(xp+16,yp+17) ; 
_lineto(xp+16,yp+27) ; 
_lineto(xp+8,yp+31) ; 
_lineto(xp,yp+27) ; 

/*  fourth  benzene  */ 
_iBOveto  ( xp-8 ,  yp+3 1 )  ; 
_llneto(xp-8,yp+42) ; 
_^lineto(xp,yp+45) ; 

__i  Ineto  ( xp+8 ,  yp+42 ) ; 
_Iineto(xp+8,yp+31) ; 


} 


> 

/A**********************  function  9rf_resulta  ***•************************/ 
#define  XNXT_MAX  .01  ~ 

void  grf^results  (scan,kal»buf ) 
int  scan; 
float  kal; 
float  buff]; 

{ 

char  buffer [80]; 

int  i,  X,  y,  numpts,  first_x,  laet__x,  xecale; 
float  yscale; 

static  float  max»XNXT_MAX7 

/•  set  the  max  value  +/ 
if  ( (fabs( (double ) kal) )  >  max) 
max  >  (float)  (fabs( (double) kal) ) ; 

if  (scan  <  DEIAY  LENGTH) 

( 

nusqyts  •  scan; 
first_x  ■  0; 

last^x  -  DELAY  LENGTH- 1; 
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} 

< 

numpta  -  DELAY_LBNGTH; 

£irBt_x  »  scan  -  (DEIAY_LBNGTH-1) ; 
last^x  ■  scan; 

) 

/*  Calculate  the  scaling  factor  */ 
yscale  >  150.0/raax; 
xscale  «  512/DELAY_LENGTH; 

_moveto  (0,0);  /*  Print  the  zero  axis  */ 

_lineto  (512,0); 

_moveto  (0,150);  /*  Print  the  Y  axis  */ 

_llneto  (0,-150); 

for(i  *  0;  i  <«  512;  i  64)  /*Print  the  X  axis  tic)c  mar]ca  */ 

{ 

_moveto ( i ,  5 ) ; 

_lineto(i,  0); 

} 

£or(i  ■  150;  i  >«  -150;  i  -■  150)  /*  Print  the  Y  axis  tick  marks  */ 

_moveto(-4,  i); 

_lineto(0,  i); 

> 

/•  label  the  axis  */ 

sprintf (buffer, "%04d",  fir8t_x); 

_settextpo8ition(24,7) ; 

_out text (buffer) ; 

sprintf  (buffer,  ”404^1”,  last_x); 

^settextpo8ition(24,70) ; 

_outtext( buffer) ; 

sprintf (buffer, "%  5.4f",  max); 

^ssttextposit ion (3,0); 

_outtext (buffer) ; 

sprintf ( buffer, "t  5.4f",  0.0); 

_settextpo8ition(13,0) ; 

_outtext(buffer) ; 

sprintf (buffer, "%  5.4f",  -max); 

_sett ext posit ion (2 3,0) ; 

_outtext (buffer) ; 

sprintf (buffer, "SCAN:  %5d  t  %  7.5f",  scan,  kal); 

for  (i  •Of  i  <  10;  i++) 
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buffer! i-t-13]>hdin8gl[l] ! 

_eett ext posit ion (1,27) ; 
jouttext (buffer) ; 

sprintf( buffer, "End  )cey  to  exit"); 
_aettextposition(24,35) ; 

_^out text  (buffer) ; 

/*  plot  the  data  */ 

jnoveto  (0,  (int)  -(buf(O)  *  yscale)); 
for  (i“l;  i  <  numpts;  i++) 

X  >  i  *  xBcale; 
y  ■  (int)  -(bufti]  <*  yscale); 
_lineto  (x,y); 

} 


) 

y**************************«  function  fburst  ** 
int  fburst (buffer) 
float  buffer!]; 

{ 

/*  int  index,  bloc; 
double  bval; 

bloc  ■  0; 

bval  >  (double)  buffer!0]; 

for  (index  «  1;  index  <  1NTF_LENGTH;  index-t"*-) 
if  (fabs( (double)  buf fer! index ] )  >  bval) 

< 

bval  ■  fab8( (double)  buffer (index]); 
bloc  *  index; 

} 

return  (bloc);  */ 

int  i,  max_loc,  inin_loc; 
float  max^val^O.O,  min_val«0 . 0 ; 

for  (i«0;  i<INTF_LENGTH;  i++) 
if  (buffer! i]  >  max  val) 

{ 

flwx_val  «  buffer(i); 
sMuc  loc  *  i; 

) 

else  if  (buffer !i]  <  nin_val) 

{ 

Biin_val  «  buffer !i]; 

8d.n  loc  «  i; 

) 
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if  (£abs( (double)  inin_val)  >  max_val) 
return  (inin_loc ) ; 

else 

return (max_loc) ; 

/***************************  function  deriv  ****************•************/ 
void  deriv(bufl,  buf2) 
float  bufl(],  buf2[]; 

{ 


int  i2n,inf ib,i2b; 

int  index,  iert,  ifin,  ncent; 

float  denom; 

/*  use  the  forward  difference  for  the  first  t%#o  points  */ 
denom  «  2.0; 
i2n  -  2; 
in  -  1; 

for  (index«0;  index  <  2;  index++,  i2n++,  in++) 

bufl(indexl  «  (-buf2(i2n)  +  4.0*buf2(in]  -  3.0*buf2[index] )/denom; 


/*  use  the  backward  difference  for  the  last  two  points  */ 
i2b  -  INTF_1.ENGTH  -  4; 
ib  «  INTpJEenGTH  -  3; 
isrt  •  INTF  LENGTH  -  2; 

for  (index-Isrt;  index  <  INTF  LENGTH;  index++,  i2b++,  ib++) 

bufl(index]  «  (buf2(i2bl  -  4.0*buf2(ibJ  +3.0*buf2 ( index) ) /denom; 


/*  use  the  central  difference  for  the  middle  points  */ 
ncent  -  INTF_LENGTH  -  5; 
isrt  ■  2; 

ifin  ■  INTF_LENGTH  -  2; 

i2b  -0; 

ib  -  1; 

in  ■  3; 

i2n  «  4; 

denom  •  12.0; 

for  {index“isrt;  index  <  ifin;  index++,  i2n++,  in++,  ib++,  i2b++) 
bufllindex)  -  (buf2(i2b]  -  8.0*buf2(ib)  +  8.0*buf2[in)  - 
buf 2 { i2n] ) /denom; 


/•*«*************«*«******«*•*  function  normal 
void  normal (buffer) 
float  buffer) ]; 


int  index; 
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float  ssq  *  0.0; 

for  (index-0;  index  <  INTF_LENGTH;  index-t--^) 
seq  **  buffer [index]  *  buffer [index]; 

if  (eaq  >  0.0) 

esq  «  INTF_LENGTH  /  sqrt(B8q); 

else 

esq  -  1.0; 

for  (index-0;  index  <  ZNTF_LENGTH;  index-f>) 
buffer] index]  *-  esq; 


} 

y*************************  function  filter  ******•*************************/ 

void  filter (in_buft  out_buf,  buret) 

float  in_buf[]; 

float  out_buf [ ] ; 

int  burst; 

{ 

int  i,  j,  k; 

for  (i-0,  k-SEG_OFFSETl+burat-l;  i<SEG_ LENGTHl ;  i++,  k++) 

{ 

out_buf[i]  -  flt_interceptsl[i]; 
for  (j-0;  j  <  fit  lengthl]!];  j++) 

out  buf[i]  +-  fTt_coefsl[i][j]  *  io_buf[  k+flt_offsetsl[i) [ j]  J; 

>  ” 

} 

/*•*•**«**•**«********«***  function  plinear  *************••***************/ 
float  plinear] in_buf) 
float  in  buf[]; 

< 

float  d8c_fflax— 100.0; 
float  dsc; 
int  i,  j,  k; 

for  (i-0;  i  <  DSC_PASS1;  i++) 

{ 

dsc  -  dsc_interceptsl[i] ; 
for  (j»0;”j  <  SEG_LBNGTH1;  j++) 

dec  +-  in_buf[j]  *  d8C_coefsl[i][ j]; 

if  (dsc  >  dsc_fflax) 
dsc  max  -  dsc; 


return ( dsc_max ) ; 

> 

/***•****•**»************•*  function  kalman  *******************************/ 
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float  kalman(8can_num,  in_value) 

Int  acan^num; 
float  in_valua; 

{ 

static  float  sumsO.O; 

static  float  sumsq^O.O; 

static  float  q«0.0; 

static  float  clkip»0,0; 

static  float  8i9Cl2,  skip; 

static  float  prev_inputI2*KAL_WIN+l) ; 

static  float  beta72*XJa_MIN+lT; 

int  nm,  i,  j; 

float  temp,  abase,  skm,  kal__gain,  kal^^result,  clcov,  clkm; 
nm  >  2  •  KAL_WIN  1; 
if  (scan  num  »  0) 

/*  setup  info  for  the  kalman  */ 

temp  -  3.0/(float) (KAL_WIN*(KAL_WIN+1)*(2*KAL_WIN+1)); 
for  (i— KAL^WIN,  j«0;  i<KAL_WIN+l;  i++,  j++) 
beta(j]  >  temp  *  (float)  i; 

} 

if  (scan  num  <  KAL  SETUP) 

{ 

sum  in_value; 

sumsq  in^value  *  in_value; 

return(O.O) ; 

> 

else  if  (scan  num  -<■  KAL_SETUP) 

{ 

abase  >  (float)  KAL_SETUP; 

ai9cl2  •  (sbase  *  sumsq  -  sum  *  sum) /( abase* ( sbase-l. 0) ) 
skip  >  sigcl2; 
return(O.O) ; 

} 

else 

< 

clkm  «  clkip; 
skm  •  skip  *  q; 

/*  compute  the  kalman  gain  */ 
kal_gain  ■  skm  /  (skm  *  sigcl2); 

/*  update  the  intensity  covariance  */ 
clcov  «  (1.0  -  kal_gain)  *  skm; 

/*  update  the  intensity  estimate  */ 

kal_result  ■  clkm  ♦  kal_gain  *  (in_value  -  clkm); 
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/*  update  array  of  previous  values  */ 
for  (i«0;  i<nni-l;  i++) 

prev_input ( i ]  •  prev_tnput(i+ll j 
prev_input(nn»-l  J  •  in_value; 

/*  update  the  Q  estimate  and  compute  the  moving  average  */ 
for  (i«0,  aum=0.0;  i<nm;  1++) 
sum  beta [ i ]  *  prev_input ( i ] ; 

q  «  sum  *  sum; 
clkip  *  kal_result; 
skip  >  cicov; 
return(kal  result); 

} 

} 

/*************************  function  lete_eee__it  ************************•**/ 

void  lets_see_it (device,  label,  buffer,  length) 

FILE  ^device; 
char  label ( ] ; 
float  buffer!]; 
int  length; 

{ 

int  i; 

if  (device  stdout)  Output  to  display  */ 

{ 

fprintf (device, "\n\n\n\n" ) ; 
for  (i»0;  i  <  length;  i  +*  2) 

fprintf (device,  "%s#  %4d  «  %12.3f  %a#  %4d  -  %12.3f\n", 

label,  i-*-!,  buffer!  i],  label,  i-*-2,  buffer(i-*-l] ) ; 

> 

else  /«  Output  to  the  printer  */ 

{ 

fprintf (device, "\r\n\r\n\r\n\r\n" ) ; 
for  (i-0;  i  <  length;  i  4) 

{ 

fprintf (device,  ”«s/  «4d  «  %12.3f  %8#  %4d  -  %12.3f  ", 

label,  i-M,  buffer!!],  label,  l-t'2,  buffer!it-l] ) ; 
fprintf (device,  "%8#  %4d  «  %12.3f  %8#  %4d  >  %12.3f\r\n", 

label,  i+3,  buffer !  1+2 ] ,  label,  i'f4,  buffer!i+3] ) ; 

> 

> 

> 

/*******•*******••******•  function  time_stamp  *********************•*******/ 
long  time  stamp () 

{ 

union  REGS  rags;  /*SETUP  FOR  REGISTER  USE*/ 

long  tc; 

regs.h.ah  «  0;  /*SET  ACC  FOR  TIME  TYPE  INTERRUPT*/ 

int86(  Oxla,  firegs,  Sregs  );  /*GENERATE  INTERRUPT  FOR  TIME*/ 
tc  *  (((long)  regs.x.cx)  «  16)  *  regs.x.dx; 
return(tc);  /*RETURN  CLOCK  TICK*/ 

} 
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